checar registros en bdgrid

[hanna33]

hola espero ke alguien me pueda ayudar... estoy haciendo la interfaz de una bd en delphi, el problema es que cuando inserta un registro que ya esta se termina mi programa y no kiero ke pase eso .... para esto en la red encontre un codigo pero no me funciona es el siguiente si alguien me puede ayudar se lo agradecer emucho.

procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
{Error in the Post}
ShowMessage('Error al dar de alta un nuevo registro'+#13+
'Motivo:'+E.Message);
Action:=daAbort;
end;

si me envian algo de codigo o mencionan el error del codigo seria mejor