1 Button - Formular vergrößern, verkleinern

[Salomon]

Wo liegt das Problem, ist doch nur eine Zeile:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if form1.Height = 100 then form1.Height := 200 else form1.Height := 100;
end;