delphi 用dbgrid控件显示memo字段的问题

写程序真得花功夫，想用好delphi7下强大的控件不容易，那可以比较出是否理解程序设计的深入程度。我不认为第三方控件怎么好，想更好进行软件开发，还是要会用原本的控件啊，用好了才能更好地学习别的优秀控件。（因为我并不在软件开发上工作，不知道时间的意义，完全是个人爱好）我个人喜好原生态的东西。下面附上代码，没有测试过字符多的情况，但对于我要做的事已经够用了。

procedure TStdInfo.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var adomemo:Tdbmemo;
begin
   if (column.Field.DataType=ftMemo) or (column.Field.DataType=ftFmtMemo) then
   begin
    adoMemo:=TdbMemo.Create(self);
    try
     adomemo.Parent:=stdInfo;
     adomemo.DataSource:=dm.DS_change;
     dbgrid1.Canvas.Font.Color:=clBlue;
     dbgrid1.Canvas.FillRect(rect);
     DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top,adomemo.DataSource.DataSet.FieldValues['other']);
     adomemo.Free;
    Except
      a