Show Hidden Mainmenu

Hidden

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Menu := nil;
end;

Show

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Menu := form1.MainMenu1;
end;