[x_aguilarf]

Podrías probar con esto:

Código Delphi [-]
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_MENU then
  begin
    if Menu = nil then
      Menu:= MainMenu1
    else
      Menu:= nil;
    Key:= 0;
  end;
end;