[[Gunman]]

pues con try...except.

Código Delphi [-]
 try
    {Inserta datos}
 except
   on E{Error al insertardatos} do ShowMessage('Error al insertar datos :´-( ');
 end;