Validación de Campos y TDBAdvEdit

[PINO72]

Lo que decía, cuando utilizo componentes DbAdvEdit y genero una excepción en el evento OnValidate del campo asociado, no se visualiza el mensaje del DataBaseError, aunque no se me permite salir del foco (Al fallar la validación).

Pongo algo de código;

Código Delphi [-]
 
 
...
//EditCCODCLI es  TDBAdvEdi;
//CDSCabAlb es TClientDataSet
//CDSCabAlbCCODCLI es TStringField
...
 
 
procedure FTichaABMCAlbCli.CDSCabAlbCCODCLIValidate(Sender : Tfield);
Var IBSQL : TIBSQL;
begin
Try
IBSQL:= TIBSQL.Create(nil);
IBSQL.Transaction:= tr;
IBSQL.Sql.Text:= 'Select Count(*) from clientes where CCODCLI = :XCODCLI');
IBSQL.ParamsByName('XCODCLI').AsString:= TrimRight(EditCCODCLI.Text);
IBSQL.ExecQuery;
** AQUI SE PRODUCE EL FALLO . SI SE GENERA LA EXCEPCIÓN NO SE VISUALIZA EL MENSAJE!!!
If IBSQL.RecordCount = 0 then DataBaseError ('El Cliente no existe');
   ****** Aquí
 
finally
IBSQL.Close;
IBSQL.Free;
end;
end;

De nuevo os pido ayuda ...

Saludos.