Delphi Сжатое меню сверху Delphi

[Lomanu4]

procedure TForm6.AbreMenu;
begin
  rctMenu.AnimateFloat('Position.Y', 0, 0.5);
  btnMenu.AnimateFloat('RotationAngle', 90 , 0.5);
  rctMenu.Tag := 1;
end;

procedure TForm6.btnMenuClick(Sender: TObject);
begin
  if(rctMenu.Tag = 0)then
    AbreMenu
  else
    FechaMenu;
end;

procedure TForm6.FechaMenu;
begin
  rctMenu.AnimateFloat('Position.Y', 0 - rctMenu.Height, 0.5);
  btnMenu.AnimateFloat('RotationAngle', 0, 0.5);
  rctMenu.Tag := 0;
end;

procedure TForm6.FormCreate(Sender: TObject);
begin
  FechaMenu;
end;

procedure TForm6.lst1ItemClick(const Sender: TCustomListBox; const Item: TListBoxItem);
begin

  FechaMenu;
end;