MEMO FELD in DBGRID anzeigen lassen

[Alterauge]

Sieht noch nicht gut aus:

Delphi-Quellcode:

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
  FileStream: TFileStream;
  BlobStream: MyBlobStream;   // Undeklarierter Bezeichner 'MyBlobStream ???
begin
  MyTable1.Edit;
  try
    FileStream := DBMemo1.Text;
    BlobStream := MyTable1.CreateBlobStream(MyTable1.FieldByName('Message'),bmWrite);
    BlobStream.CopyFrom(FileStream,FileStream.Size);       // MyBlobStream enthält kein Element namens CopyFrom
    FileStream.Free;
    BlobStream.Free; // MyBlobStream enthält kein Element namens Free
    MyTable1.Post;
  except
    MyTable1.Cancel;
    raise;
  end;
 end;