как скрыть/показать TMainMenu

[blackstersl]

Как по нажатию на кнопку можно скрыть TMainMenu а потом по нажатию этой же кнопки показать его? Спасибо.

[Neeter]

Я только так придумал:

procedure TForm1.bt_2Click(Sender: TObject);
begin
 Form1.Menu := TMainMenu.Create(Self);  //Скрывает
end;

procedure TForm1.bt_3Click(Sender: TObject);
begin
 Form1.Menu := MainMenu1;   //Показывает
end;

Но тут вроде утечка памяти, точно не уверен.
Так, наверно, будет лучше:

procedure TForm1.bt_2Click(Sender: TObject);
var
 m: TMainMenu;
begin
 m := TMainMenu.Create(Self);
 Form1.Menu := m;
 m.Free;
end;

[blackstersl]

Все работает спс.

[Alter]

procedure TForm1.Button2Click(Sender: TObject);

 procedure Stat(M :TMainMenu; vis :boolean=True);
 var I,II :Integer;
 begin
  If M=Nil then Exit;
   II := MainMenu1.Items.Count;
  If II>0 then
  For I:=0 To II -1 Do
   M.Items[I].Visible := Vis;
 end;

begin
  Case Button2.Tag of
 0:begin // прячем
  Stat(MainMenu1, False);
  Button2.Tag := 1;
   end;
 1:begin // показываем
  Stat(MainMenu1, True);
  Button2.Tag := 0;
   end;
  End;
end;