Markus,

> RecCnt := 0;
> while not eof(Fi) do begin
> readln(Fi,S);
> Parse(S); { parse string "S" into structure "Rec" }
> Param1.AsInteger := Rec.ID1;
> Param2.AsInteger := Rec.ID2;
> DSQL.Execute;
> Inc( RecCnt );
> if ((RecCnt mod 10000) = 0) and DSQL.IB_Transaction.Started then
> begin
> DSQL.IB_Transaction.Commit;
> DSQL.IB_Transaction.StartTransaction;
> end;
> end;
> finally
> DSQL.Free;

{ Shouldn't there be a final commit here? }
DSQL.IB_Transaction.Commit;

> end;
> end;