como se si he pulsado un boton

[rafita]

Reabro este hilo porque he tenido la misma necesidad que el compañero, y efectivamente Hector tiene razón.

Pero deja de funcionar si quiero evitar el evento OnExit al pulsar sobre dos botones (pulsar sobre cualquiera de ellos, claro).

Ejemplo:

procedure TFMantoContratos.NumContratoExit(Sender: TObject);
begin
 if (not BCancelar.Focused)  or (not BNContratoAutomatico.Focused) then 
    begin
       // las instrucciones del OnExit
    end;

deja de funcionar para los dos botones.

¿a alguien se le ocurre alguna idea?