[marcoszorrilla]

Básate en este ejemplo tomado de parte de mi código:

Código Delphi [-]

  Const
    eKeyViol = 9729;
    eRequiredFieldMissing = 9732;
    eForeignKey = 9733;
    eDetailsExist = 9734;
    eSqlGralerror = 13059;
  
  implementation
  uses Global;
  
  {$R *.DFM}
  Procedure midberror(DataSet: TDataSet; E: EDatabaseError);
  
  begin
  if (E is EDBEngineError) then
    if (E as EDBEngineError).Errors[0].Errorcode = eKeyViol then
    begin
    Application.MessageBox('Imposible dar alta ese registro ya existe','Atención',mb_Ok +   mb_IconQuestion);
    Abort;
    end;
  
    if (E as EDBEngineError).Errors[0].Errorcode = eRequiredFieldMissing then
    begin
      Application.MessageBox('Imposible dar alta hay un campo vacio.','Atención',mb_Ok +
    mb_IconQuestion);
      Abort;
    end;
  
        //campo en blanco
  
    if (E as EDBEngineError).Errors[0].Errorcode =   eSqlGralerror then
    begin
    Application.MessageBox('Imposible dar alta hay un campo requerido vacío.','Atención',mb_Ok +
    mb_IconQuestion);
    Abort;
    end;
  
  
  end;
  
 
   procedure TDmVil.ProvPostError(DataSet: TDataSet; E: EDatabaseError;
     var Action: TDataAction);
   begin
   midberror(Prov,e);
   end;

Un Saludo.