--- In IBObjects@y..., hans@h... wrote:

> Might be suspicious ... and not ment to happen
>
> IBC_Currency.IMP(401); Value assigned to 'wCurrency' never used
> IBF_Query.pas(2324); Value assigned to 'qualified' never used
>
> =========================================
>

IBC_Currency.IMP(401); Value assigned to 'wCurrency' never used
this is my foult. Nothing serious at all, since I try to assign the value to a currency variable in a try...except to test if it's in the correct range while the control is working unbound (so limiting the total number of digits you can enter).
I've sent a "patch" to Jason to avoid this, but he is on holiday...
You can do it by yourself:
(IBC_Currency.IMP)
function TIB_Currency.CheckCurrencyOverRange( S : string ) : boolean;
begin
Result := False;
if not Assigned(Field) then
begin
try
StrToCurr(TextToValText(S))
except
Result := True;
end;
end;
end;

Regards
Marco Menardi