Importing data and blobs via TIB_Query

while ...
begin
TIB_Query.Append;
TIB_Query['Field'].As.... := Info ;
TIB_Query.Post;
end;

works fine. Blobs import great.

Now to speed things up, I use CachedUpdates := True
with ApplyUpdates and Commit every 1000 records.

count := 0;

while ...
begin
TIB_Query.Append;
TIB_Query['Field'].As.... := Info ;
TIB_Query.Post;

inc(count);
if mod(count,1000) = 0 then
ApplyUpdates and Commit
end;

All data looks fine, but only every 1000th blob get
imported, the first one in the cache.

Changing mod(count,1000) to mod(count,1) it works fine
but defeats the purpose.

Any Ideas

Best Regards
Hans