Hola Jose.
Si no te entiendo mal, por ejemplo sobre tu código:
Código Delphi
[-]
procedure TwPaciente.CapturaError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
if E.ClassNameIs('EFIBInterBaseError') then
case EFIBError(E).IBErrorCode of
335544347 : begin
MessageDlg('El campo NOMBRE no puede estar vacio', mtError,[mbYes],0);
dbNombre.SetFocus;
end;
335544665 : begin
MessageDlg('CEDULA ya existe.', mtError,[mbYes],0);
dbNombre.SetFocus;
end;
end;
end;
Saludos