BitBld und Anzeige in Image

[nezumi7]

Nabend allerseits,

ich versuche bei einem Bitmap (bmp1) die Kanten abzuschneiten und das Ergebnis (bmp2) in einem TImage anzuzeigen.

So gehts:

Code:

procedure TForm1.Button5Click(Sender: TObject);
var
breite, hoehe: integer;
begin
breite := bmp1.Width-5;
hoehe := bmp1.Height-7;
BitBlt(image2.Canvas.Handle,0,0,breite,hoehe,bmp1.Canvas.Handle,0,0,SRCCOPY);
end;

so aber nicht:

Code:

procedure TForm1.Button5Click(Sender: TObject);
var
breite, hoehe: integer;
begin
breite := bmp1.Width-5;
hoehe := bmp1.Height-7;
BitBlt(bmp2.Canvas.Handle,0,0,breite,hoehe,bmp1.Canvas.Handle,0,0,SRCCOPY);
Image2.Picture.Bitmap := bmp2;
end;

In Image2 erscheint schlicht gar nix. Ich hätte aber gerne diese Variante. Was mache ich falsch?

Gruß, Stephan.