Captura error tipo EDataBaseError

[Jose Roman]

Cordial saludo,

Tengo el siguiente código el cual muestra un mensaje del error al no haberse digitado una valor en el campo ID_CLI (cliente):

Código Delphi [-]
procedure TwDataModule.qOrdenPostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
  if (E is EDatabaseError) then
  case EFDDBEngineException(E).ErrorCode of
    341346812 : scMessageDlg('El campo CLIENTE es obligatorio',mtError,[mbOk],0);
  end;
end;

Funciona bien y muestra el mensaje deseado, solo que despues de este mensaje aparece este otro mensaje y no se como capturarlo y evitar que se muestre:



Como evito que muestre este mensaje, se que debe faltar algo en el codigo pero no se que es. Gracias de antemano.