ErrorCode con FireDac

[Jose Roman]

Cordial saludo,

Tengo Delphi 10.3 y trabajo con Firebird 3.0, me gustaria saber como puedo capturar el mensaje de error que da Firebird con los componentes FIREDAC, antes con los componentes FIBPlus podia hacerlo de la siguiente forma:

Código Delphi [-]
  if (E is EFIBError) then
  case EFIBError(E).IBErrorCode of
    335544347 : scMessageDlg('Los campos CONCEPTO, VALOR Y TIPO son obligatorios',mtError,[mbOk],0);
  end;
  Action := daAbort;

Gracias de antemano.