Thanks Geoff

Good explanation of the 'problem'.

I will try:

> procedure ...
> var
> XCol: TIB_Column;
> begin
> XCol := IB_Query1.FieldByName( 'X' );
> for i := 0 to 100 do
> XCol.AsInteger := i;
> end;

If the performance is better for my problem, I'll change the old way
to do it.