Judo,
Один из вариантов. Проверено на Delphi 7, ADO подключение к MS SQL 2008.
В качестве Memo-поля выступает столбец с типом varchar(max)
// Событие OnDrawDataCell
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
var
s: string;
begin
if Field is TMemoField then
begin
s := Field.Value;
s := StringReplace(s, #13, ' ', [rfReplaceAll]);
s := StringReplace(s, #10, ' ', [rfReplaceAll]);
TDBGrid(Sender).Canvas.FillRect(Rect);
TDBGrid(Sender).Canvas.TextOut(Rect.Left+1, Rect.Top+2, s);
end;
end; // DBGrid1DrawDataCell