Sry, hab noch vergessen, das Bitmap in Image321 zu erstellen.
Ersetz den Code von Button1Click mal bitte durch diesen hier:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var aBmp32:TBitmap32;
begin
aBmp32:=TBitmap32.create; //erstmal das Objekt erstellen
aBmp32.loadfromfile('c:\Test.bmp');
Image321.Bitmap:=tbitmap32.create;
Image321.Bitmap.Width:=image321.clientWidth;
Image321.bitmap.height:=image321.clientheight;
PaintCover(Image321.Bitmap,1,1,150,150,0.5,30,aBmp32)
end;