关于ADO的错误处理(100分)

请问如何在adoquery中写错误处理代码，如主键重复，外键引用等。
请贴出代码，谢谢。
我有BDE的如下：
在postError事件中：
if (E as EDBEngineError).Errors[0].Errorcode = 9729 then //主键重复的代码
begin
MessageDlg('单号已重复，请注意', mtWarning,[mbOK],0);
Abort;
end;

干脆用报英文的信息来表示

var
adoErrors: Errors;
adoError: Error;
iCount: Integer;
begin
adoErrors:=ADOConnection1.Errors;
for iCount :=0 to adoErrors.Count-1 do
begin
adoError := adoErrors.Item[iCount];
if adoError.NativeError=主键重复的代码 {你自己来检测吧!} then
begin
MessageDlg('单号已重复，请注意', mtWarning,[mbOK],0);
Abort;
end;
end;
end;

case AdoConnection1.Errors.NativeCode of
9729 : begin
...
end;
xxxx : begin
...
end;
...
end;

多人接受答案了。