Image vergrößern und verkleinern

[needatip]

Hab das versucht aber dann gerät das Programm in eine Endlosschleife und stürzt ab.
Was mach ich da falsch ?
Mein jetziger Code:

Delphi-Quellcode:

var x,y : integer;
begin
  if CheckBox1.Checked = false then
  begin
    x := Image1.Width;
    y := Image1.Height;
    Image1.Autosize := true;
    Image1.Stretch := false;
  end
  else
  begin
    Image1.Autosize := false;
    Image1.Width := x;
    Image1.Height := y;
    Image1.Stretch := true;
  end;
end;