Bild aus DB lesen und an TImage via Stream übergeben

[Berserker]

Hallo Delphi-Gemeinde.

Ich versuch gerade aus einer Datenbank (MySQL) aus einem BlobFeld ein Bild zu lesen. Dies funktioniert wunderbar. Ich kann das Bild speichern und im TImage via LoadFromFile wieder laden.

Ich würde aber gerne das Bild in einen Stream speichern und dann im TImage mit LoadFromStream wieder laden.

Ich habe es schon mit Assign probiert. Dies funktioniert auch, jedoch will er kein JPEG, GIF etc laden. Es kommt immer die Fehlermeldung "Bitmap ungülitg"

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var blobBild: TBlobfield;
begin
 blobBild := MyTable1.FieldByName('dateiinhalt') As TBlobField;
 if(blobBild.BlobSize>0) then
  Image1.Picture.Assign( blobBild );
end;

Fall jemand Lösungsvorschläge hat, wäre ich sehr dankbar.

MfG, Ronny