DBGrid memo field

Jeg har fundet denne geniale løsning på EE, til hvordan man i DBGrid viser indholdet af et MemoField i stedet for teksten (MEMO), men jeg kan ikke få den til at virke. Nogen gode bud, til hvordan den kommer til at virke?

Denne kode skal bare smides ind i DBGrid'ens OnDrawDataCell:

procedure TForm3.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
P : array [0..50] of char; {array size is number of characters needed}
BS : tBlobStream;          {from the memo field}
S : String;
begin
If Field is TMemoField then begin                         
  with (Sender as TDBGrid).Canvas do
      begin {Table1Notes is the TMemoField}
        BS := tBlobStream.Create(Table1Notes, bmRead); <-- Table1Notes kan jeg ikke helt finde ud af hva skal være
        FillChar(P,SizeOf(P),#0); {terminate the null string}
        BS.Read(P, 50); {read 50 chars from memo into blobStream}
      BS.Free; S := StrPas(P);
        while Pos(#13, S) > 0 do {remove carriage returns and}
          S[Pos(#13, S)] := ' '; {line feeds}
        While Pos(#10, S) > 0 do
          S[Pos(#10, S)] := ' ';
      FillRect(Rect); {clear the cell}
        TextOut(Rect.Left, Rect.Top, S); {fill cell with memo data}
      end;
  end;
end;