Hi,

Run your test again with a adding a line :

> for I := 1 to 1000 do // Iterate
> begin
> sql := randomSQL;
> Memo1.Lines.add(sql);
> IBTransaction1.StartTransaction;
> IBSQL1.SQL.Clear;
> IBSQL1.SQL.Add(Double39(sql));
> IBSQL1.Prepare;
> IBSQL1.ExecQuery;

IBSQL1.FetchAll; <=======

> IBTransaction1.Commit;
>
> end; // for

Regards,
Arno