[jachguate]

Algo así:

Código Delphi [-]
  ibSQL2.ParamByName('empresa').asstring:=empresa;
  ibSQL2.ParamByName('noc').asfloat:=result;
  for I := 1 to 100 do
  begin
    ibSQL2.ParamByName('ncorr').asstring:=inttostr(I);
    ibSQL2.ExecSQL();
  end;
  ibTransaction1.Commit();

Hasta luego.