Captura de Error personalizado

[Jose Roman]

Hola a todos,

Resulta que por medio de este codigo capturo un error de la base de datos:

Código Delphi [-]
procedure TwPaciente.CapturaError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
  if E.ClassNameIs('EFIBInterBaseError') then
  case EFIBError(E).IBErrorCode of
//  Not Null
    335544347 : begin
                  E.Message := 'El campo NOMBRE o puede estar vacio.';
                  dbNombre.SetFocus;
                end;
//  UNIQUE Key
    335544665 : begin
                  E.Message := 'CEDULA ya existe.';
                  dbNombre.SetFocus;
                end;
  end;
end;

Mi pregunta es:
Como reemplazo la parte E.Message por MessageDlg esto debido a que deseo algo mas personalizado que ese cuadro de dialogo sencillo que aparece.