Formular mit TEdit als Pflichtfeld mit Button.OnClick beenden

[pischti]

Hallo zusammen,

ich habe ein Formular mit einem Pflichtfeld TEdit. Diese prüfe ich auf "Leer" nach OnExit was ja soweit auch funktioniert. Jetzt ist aber so, dass das Formular auch ein Beenden Button enthält, worüber ich jeder Zeit das Formular schließen möchte.

Wie kann ich in dem Ereignis OnExit abfragen, ob das Feld durch Klick auf das nächste Feld oder durch Button klick verlassen wurde?

Ich habe schon mit Sender versucht, aber ohne Erfolg. Als Klassenname kommt nur TEdit an.

Code:

procedure TEinbuchenForm.txtEanArtNrExit(Sender: TObject);
begin
  {
    ShowMessage(Sender.ClassName);

  if Sender = btnBeenden then
    ShowMessage('Beenden wurde geklickt');
  }
  if txtEanArtNr.Text = '' then
  begin
    if Dialogs.MessageDlg('Eingabe von EAN oder Artikelnummer erforderlich!' +
      chr(10) + 'Einbuchen fortsetzen?', mtWarning, [mbYes, mbNo], 0, mbYes) = mrYes
    then
    begin
      txtEanArtNr.SetFocus;
    end
    else
      Close;
  end
  else
  begin
    // Artikel anhand von EAN oder Artikelnummer suchen
    qryArtikel.Close;
    qryArtikel.Sql.Clear;
    SQLBefehl := 'SELECT * FROM artikel WHERE art_ean_nr = ''' +
      txtEanArtNr.Text + '''';

Danke schon mal für die Hilfe
Pischti