Delphi - como puedo hacerlo

Hola tengo otra duda mas, lo que pasa es que necesito manejar un mensaje de error que me envia la base de datos, sucede cuando quiero guardar datos y la clave ya existe en la tabla esto es cuando se intenta duplicar la llave. Quiero controlarlo para que desde delphi me mande un mensaje al usuario empleando el error de mi base de datos .
Gracias.

procedure TForm1.Table1PostError(DataSet: TDataSet; exepcion: EDatabaseError;
var Action: TDataAction);
begin
ShowMessage('Error: '+exepcion.Message);
Action:=daAbort;
end;