Exception abfangen mit OnPostError

[needatip]

Hallo,

ich möchte mittels des Ereignisses OnPostError einer ADOTable eine doppelte Eingabe eines Wertes in eine Datenbank abfangen.

Die Tabelle hat einen Primärschlüssel sowie einen zusammengesetzten Index mit 2 weiteren Spalten.

Wenn ich jetzt in das OnPosError Ereignis schreibe:

Delphi-Quellcode:

procedure TForm1.ADOTable1PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
begin
if Pos('duplicate key', E.Message) > 0 then
 begin
   ShowMessage('Duplicate values not allowed!');
   Action := daAbort;
 end;
end;

bekomme ich immer die Meldung:
"Die zum Aktualisieren angegebene Zeile wurde nicht gefunden...."

Wer kann mir helfen, eine derartige doppelte Schlüsseleingabe richtig abzufangen?