Größe vom Image in Form1.OnCanResize verändern (relativ)

[Lefko]

Hallo Leute ,

ich hab folgenden Code:

Delphi-Quellcode:

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
Resize := true;
Label1.Left := (NewWidth - Label1.width) div 2;

//Größe relativ verändern
Image1.Width := NewWidth - (NewWidth div 8);
Image1.Left := (NewWidth - Image1.width) div 2;
Image1.Height := NewHeight - (NewHeight div 3);
Image1.Top := NewHeight div 5;

//altes Image löschen
with Image1.canvas do
 begin
  brush.Color := form1.color;
  pen.color := form1.color;
  rectangle(0, 0, image1.width, image1.height);
 end;

Mitte.X := Image1.width div 2;
Mitte.Y := Image1.Height div 2;
//Neues Bild neu zeichnen
Timer1Timer(self);
end;

Wieso geht das nicht? es kommt immer Mist dabei raus, nämlich wird das, was gezeichnet wird, richtig verzerrt, wenn ich die Größe der Form ändere, aber es wird nur noch ein Teil des Bildes gezeichnet, nämlich der, der die Größe von dem ursprünglichen Image hat! (siehe Screenshot!)

Woran kann das liegen? Properties von Image1 stehen auf false:

- Center
- AutoSize
- Stretch

Woran kann das nun liegen??


MfG Lefko.