TImage.Picture.Bitmap dürfte zu dem Zeitpunkt gar nicht initialisiert sein (vorher irgendwas mit
TImage.Canvas machen wäre auch möglich). Da Delphi den Dateityp einer Bilddatei (für die Auswahl von
TGraphicClass) ausschließlich über die Erweiterung bestimmt (die ein Stream nicht hat), musst du die
Graphics.TBitmap
selbst erstellen.
Graphics.TBitmap
(es gibt mehrere Klassen in Delphi, die TBitmap heißen) weist man einem Bild zu, indem man
TPicture.Assign
aufruft (nicht
TGraphics.Assign
).
Delphi-Quellcode:
var
BMP: Graphics.TBitmap;
begin
TuEtwasMitDem(Stream);
BMP := Graphics.TBitmap.Create;
BMP.LoadFromStream(Stream);
Image1.Picture.Assign(BMP);
BMP.Free;
end;