Focused XE7

[Dangelo2010]

Boa tarde

Estou com um problema referente ao focused no xe7, pois no onexit ao dar um abort o delphi 7 permite clicar no botão ao qual esta o focused, porem no XE7 ao fazer o mesmo procedimento ele aborta porem não permite clicar no botão, alguem tem alguma ideia para mim ajudar? veja como estou fazendo no delphi 7

procedure TForm1.Edit1Exit(Sender: TObject);
Begin

  If (btnSair.Focused) Then Begin
    Abort;
  End;

  If Edit1.Text = '' Then Begin
    ShowMessage('Campo em branco.');
    Edit1.SetFocus;
    Abort;
  End;
End;