[Страдалецъ]

Перенос сделать не очень просто, надо пересчитывать высоту всех видимых строк, т.е. отрисовку реализовывать самому.
Можно пойти немного другим путем, через автоподбор ширины столбцов, может вам и этого хватит:

Код:

procedure TForm9.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
Var CellWidth: Integer;
begin
 CellWidth := Canvas.TextWidth(' '+Field.AsString+' ');
 if CellWidth > TDBGrid(Sender).Columns.Items[Field.Index].Width
 then TDBGrid(Sender).Columns.Items[Field.Index].Width := CellWidth;
end;

procedure TForm9.FormCreate(Sender: TObject);
Var i: Integer;
begin
 for i := 0 to DBGrid1.Columns.Count - 1
 do DBGrid1.Columns.Items[i].Width := 60;
end;