Fehlerbehandlung bei Datenbanken

[Flash68]

Hallo zusammen,

ich möchte eine Fehlerbehandlung in meine Programe einbauen die folgendermaßen aussieht:

Delphi-Quellcode:

procedure TFRM_Main.But_SpeichernClick(Sender: TObject);
begin
  try
    DM_Buecher.ADS_Buecher.Post;
    DM_Buecher.ADS_Buecher.Edit;
    setButtons(1)
  except
    DM_Buecher.ADS_Buecher.Cancel;
    DM_Buecher.ADS_Buecher.Edit;
    setButtons(1);
    MessageDlg('Es wurden nicht alle Felder ausgefüllt!',MtWarning,[mbOK],0)
  end;
end;

Allerdings wird im dem Fall das ein Feld das benötigt wird nicht ausgefüllt ist trotzdem ein neuer leerer Eintrag vorgenommen bzw. eine ID wird für den Versuch benutzt.

Kann mir jemand helfen wie ich die Fehlerbehandlung programmiere ohne das ein leerer Eintrag vorgenommen wird.

Gruß

Flash