procedure TfrmList.gridCategoryGroupDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var sTemp : String; begin case Column.Field.DataType of ftMemo: begin with TDBGrid(Sender).Canvas do begin sTemp := Column.Field.Value; FillRect(Rect); // 위치를 3 : 3 만큼 이동했지유~ TextOut(Rect.Left + 3 , Rect.Top + 3, sTemp); end; end; end; end;