violation of PRIMARY or UNIQUE KEY

[__cadetill]

por ejemplo

try
except
  on E:Exception do
     ShowMessage('mi error personalizado. Mensaje de error:'#13#13 + E.Message);
end;

Por supuesto puedes capturar el tipo de error que quieras y, sino lo es, lanzar el raise

try
except
  on E:EDivByZero do
     ShowMessage('mi error personalizado. Mensaje de error:'#13#13 + E.Message)
  else raise
end;

[ramiretor]

Hola:
Aparte de lo que te dice Cadetill, puedes usar un archivo que guarde el error, pero para agarrar el error lo pones en un try. Por ejemplo:

var
Mensaje: TStringList;

begin
....


try
except on E:Exception do
begin
Mensaje.Add(E.Message);
Mensaje.SaveToFile('miarchivo.txt');
end;
end;

[StartKill]

Gracias, muy buena sus acotes.. sin menospreciar lo que indica nuestro amigo Cadetill, ...me gusto la idea de Ramiretor de guardar los errores en un archivo.

Your friend

StartKill
Lima-Perú