[delphi xe3]: problema tasti scelta raida su menu utente

[kar64]

Salve a tutti.
Nel mio form ho creato un menu composto cosi':

sceltaA(F1)
sub1A(F3)
sub2A(F4)

sceltaB(F2)
sub1B(F5)
sub2B(F6)

ho dichiato due variabili globali
menuA:boolean
menuB:boolean

Ora
quanto premo F1 setto menuA:=true
quanto premo F2 setto menuB:=true

poichè devo evitare che si prema F5 quando ho a video i controlli abbinati al menuA ho inserito il codice:

procedure TForm3.Selezionatutteleschede1Click(Sender: TObject);  // scelta F5
begin
if menuA = true then
  messagebox(0,'Scelta non attiva. Selezionata scelta MenuA con menuB attivato','Errore', + mb_Ok + mb_ICONWARNING)
else
  form3.disponi;
end;

il problema è che quando premo F5 il codice pasa anche dalla voce F1 e mi setta a true la variabile menuA e quindi il messagebox non compare.
Da quello che capisco ' come se la pressione del tasto scandagliasse tutte le voci del menu (eseguendone il codice) fino a trovare quella giusta.

Come posso risolvere ?