image1/Bild auf Form zentrieren

[Coder]

Hallo!

ich möchte mein Bild / form2.image1. auf Tastendruck vergrößern und verkleinern.
Dabei soll es aber immer zentriert bleiben.

Doch beim Vergrößern - nach dem Verkleinern wird das Bild mit jeder Stufe immer weiter nach rechts oben geschoben.
weiß jemand, woran das liegt?

Delphi-Quellcode:

Procedure poswin(butt : integer);
  begin
        form2.image1.AutoSize := False;

    if butt=1 then begin // vergrößern  +
      form2.image1.Width := form2.image1.Width div 2;
      form2.image1.Height := Form2.Image1.Height div 2;
      form2.image1.Top :=0 + form2.Height div 2 -  form2.image1.Width div 2;
      form2.image1.left :=0 + form2.Width div 2 -  form2.image1.Height div 2;

    end;
    if butt=2 then begin // verkleinern   -
      form2.image1.Width := form2.image1.Width * 2;
      form2.image1.Height := Form2.Image1.Height * 2;
      form2.image1.Top :=0 + form2.Height div 2 -  form2.image1.Width div  2;
      form2.image1.left :=0 + form2.Width div 2 -  form2.image1.Height div  2;

    end;
    if Butt = 3 then begin // Normal  /
      Form2.Width := Screen.Width div 1;
      Form2.Height  := (Screen.Height div 1)-20;
      form2.Top := 0;
      form2.BorderStyle := bsnone;
      form2.Left := 0;
      form2.image1.Top :=0;
      form2.image1.left :=0;
      form2.image1.Width := form2.Width;
      form2.image1.Height := Form2.Height;
    end;
end;

[Master_BB]

ich denke daran:

Delphi-Quellcode:

//so hast du
form2.image1.Top :=0 + form2.Height div 2 -  form2.image1.Width div 2; 
//so wäre wohl besser um es inter mitte bei der höhe zu haben
form2.image1.Top := (form2.Height - form2.image1.Height) div 2;

klammern ist schöner und das 0+ bla ist müll

da hast du bei left auch falsch

[Coder]

danke, hast mir sehr geholfen...