Frage zu Try Except

[Gambit]

Hallo und frohe Pfingsten!

Ich hab hier mal folgenden noch fehlerhaften Code:

Delphi-Quellcode:

procedure TForm1.BtnStoreClick(Sender: TObject);
var JobDone: Boolean;

begin
  JobDone:= false;

  Try
    Query1.Post ;
  except
    on EDatabaseError do
     Messagebox(0, 'Feld Genre darf nicht leer sein!', 'Warnung',16);
  End;

  SetButtons(1);
  activatePostEdit;
end;

Es soll so sein, dass SetButtons(1) und activatePostEdit erst ausgeführt werden, wenn man in das Feld 'Genre' auch wirklich etwas eingegeben hat(und damit die Exception nicht mehr ausgelöst wird).

Wie könnte ich das am besten bewerkstelligen?

Gruß

Gambit

P.S Das Feld Genre ist in der Paradoxtabelle mit 'Eingabe erforderlich' gekennzeichnet