Panels ausrichten

[API]

Moin,

Auf meiner Form befinden sich zwei TPanel.

Panel1.Align := alClient;
Panel2.Align := alBottom;

Bei Klick auf einen Button soll Panel1 verschwinden und Panel2.Align := alClient gesetzt werden.
Nach erneutem Klick auf den Button soll wieder Panel1.Align := alClient und Panel2.Align := alBottom sein.

Sobald ein zweites Mal auf den Button geklickt wird, vergrößert sich jedoch die Form um fast das Doppelte!

Wie kann ich das verhindern?

Mein Code:

Delphi-Quellcode:

  if Panel1.Visible then
  begin
    Panel1.Hide;
    Panel2.Align := alclient;
  end
  else
  begin
    Panel1.Show;
    Panel2.Align := albottom;
  end;

das hilft auch nichts:

Delphi-Quellcode:

 if Panel1.Visible then
  begin
    Panel2.Tag := Panel2.Height;
    Panel1.Tag := Panel1.Height;
    Panel1.Hide;
    Panel2.Align := alclient;
  end
  else
  begin
    Panel1.Show;
    Panel1.Align := Alclient;
    Panel2.Align := albottom;
    Panel2.Height := Panel2.Tag;
    Panel1.Height := Panel1.Tag;
  end;

Gruß
API