Probeleme mit GraphicEx stretch()

[I love Delphi]

Hallo,
ich benutze folgendes um Bilder zu verkleinern.

Delphi-Quellcode:

        Bild.SaveToFile('Test4.bmp');
        if (CB_Art.ItemIndex = 0) and (Bild.Width > Bild.Height) then GraphicEX.Stretch(StrToInt(Edit_Breite.Text), StrToInt(Edit_Height.Text), sfLanczos3, 1, Bild.Bitmap, BMP2);
        if (CB_Art.ItemIndex = 0) and (Bild.Width < Bild.Height) then GraphicEX.Stretch(StrToInt(Edit_Height.Text), StrToInt(Edit_Breite.Text), sfLanczos3, 1, Bild.Bitmap, BMP2);
        BMP2.SaveToFile('Test.bmp');
        Bild.Bitmap.SaveToFile('Test2.bmp');
        Bild.SaveToFile('Test3.bmp');

Test4 enthält das Bild, Test ist einfach nur weiß, und Test2 & Test3 sind leer.
Was mache ich falsch?
Bitte helft mir!

[I love Delphi]

Komischerweise ist Bild leer wenn ich es einmal gespeichert habe.

[I love Delphi]

ach gott, heute habe ich mich echt dämlich dran gestellt. Das Bild ist ja in Bild.GRaphic nicht in Bild.Bitmap...


Bitte löschen!