MEMO FELD in DBGRID anzeigen lassen

[Alterauge]

Vielleicht kann mir einer weiter helfen?
Habe jetzt schon einiges ausprobiert!

Wie sieht dieser Quelltext aus? Bin ich schon nah dran?

Delphi-Quellcode:

procedure TForm1.CRDBGrid1CellClick(Column: TColumn);
var
i,weite : integer;
s,t:string;
nRect:TRect;
begin
if field is Tmemofield then begin
with
CRDBGrid1.Canvas do
begin
weite:=Rect.Right-Rect.Left - DBMemo1('...');
s:=field.asstring;
i:=0;
repeat
inc(i);
t:=copy(s,1,i);
until DBMemo1(t) > weite;
t:= copy(s,1,i-1);
fillrect(rect);
DBMemo1(rect,rect.Left+1,rect.top+2,t+'...');

  end;
 end;
end;

Möchte den DBMemo1(Inhat) im DBGrid anzeigen!

Also DBMEmo1 ins DBGrid Feldname 'Meldung'!