你可以在dbGrid.OnDrawColumnCell 或OnDrawDataCell事件中處理如下:    procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  F:TField;
  ACanvas : TCanvas;
begin
  f:= Column.Field;
  // 非Memo型態 請離開
  If Not f.DataType IN [ftMemo, ftFmtMemo] Then Exit;
  ACanvas := TDBGrid(Sender).Canvas;
  //===========================
  //  在此可以設定字體背景顏色等資訊
  //===========================
  // 將Memo欄位用String畫出來
  ACanvas.textrect(Rect,Rect.Left,Rect.Top,F.AsString);
end;