怎样屏蔽系统错误？急！在线等候(100分)

在DBGRID中插入或修改数据时如果出现重复数据时，系统会提示出错。
我现在不想系统提示出错，我自己在ADODATESET的ONPOSTERROR中写
出错信息，请问该怎么做？

用try 。。。 except。

procedure TDBMDIChildForm.DataSetPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
//提交错误,确认放弃
begin
inherited;
//如果不想显示就在这里判断错误并更改动作
if messagebox('更新记录出错!是否放弃编辑?'+
pchar(format('错误信息:%s',[e.message])),pchar(Caption),
MB_YESNO+MB_ICONQUESTION)=ID_YES then
DataSet.Cancel;
Action:=daAbort;
end;

procedure TDBMDIChildForm.DataSetPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
inherited;
if e.XXXXX= Errorcode then begin
进行错误 处理;

if messagebox('更新记录出错!是否放弃编辑?'+
pchar(format('错误信息:%s',[e.message])),pchar(Caption),
MB_YESNO+MB_ICONQUESTION)=ID_YES then
DataSet.Cancel;
Action:=daAbort;
end
else begin
end; //Errorcode 请查看数据库出错说明，每一种数据库都有的。
end;

谢谢各位！