Bild aus Datei mit StretchBlt passend in TImage anzeigen

[grizzly]

Hat l_Dest_Bitmap nach dem Create nicht Höhe und Breite gleich 0? Dann wird was draufgemalt (nicht viel, weil sich dabei die Größe nicht ändert), und am Ende wird dieses 0 mal 0 Pixel große Bild dem Image.Picture.Bitmap zugewiesen.
Fehlt vielleicht sowas wie beispielsweise l_Dest_Bitmap.width := Image1.width oder so?

Gruß
Michael