Aus TurboDB Blob in Stream schreiben

[machstuhl]

Hallo Freunde der Nacht,

über folgendem Problem sitze ich schon einige Tage und komme nicht weiter.
Ziel ist es, ein Blobfeld (meistens JPEG) aus der Datenbank auszulesen, in einen Stream zu schreiben und dann in einem TImage auszugeben.

Der Code aus der Klasse (FBLOB1 = TMemoryStream, Stream0 = TStream)

Code:

  Stream0 := CreateBlobStream(FieldByName('BLOB1'), bmRead);
  Stream0.Position := 0;
  FBLOB1.Create;
  FBLOB1.Write(Stream0, fmOpenRead);
  FBLOB1.CopyFrom(Stream0, Stream0.Size);

Der Code im Programm (J = TJpegImage)

Code:

  J.LoadFromStream(T.BLOB1);
  Image1.Picture.Assign(J);

Das Problem besteht denke ich ganz am Anfang, bei der Übergabe des Blobs an den Stream.

Hat wer einen guten Rat parat?