Image Resize ohne verzerung ?

[Praxist]

fast geklappt
ich muss nur das alte Bild löschen, damit ich einen weissen HG bekomme

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
w,h:integer;
dx,dy:integer;
begin
w:=image2.Width;
h:=image2.Height;
dx:=50;
dy:=50;
Image1.Picture.Bitmap.Width := Image1.Picture.Bitmap.width+dx;
Image1.Picture.Bitmap.height := Image1.Picture.Bitmap.height+dy;
Image1.Canvas.CopyRect(rect(dx,dy,w+dx,h+dy),Image2.Canvas,rect(0,0,w,h));
end;