//примерчик
  countLoad := 0;
  iStep := 32;

  ADOQuery.SQL.Text := cStr;
  ADOQuery.Prepared := true;
  ADOQuery.ParamCheck := false;

  Screen.Cursor := crSQLWait;
  ExportDS.First;

  if CheckCOMMITMSSQL.Checked then
  begin
    ADOConn.BeginTrans;
  end;

  while (not ExportDS.Eof) do
  begin
      for i := 0 to countFields-1 do
      begin
        ADOQuery.Parameters[i].Value := arrFields[i].Value;
      end;
      ADOQuery.ExecSQL;
      inc(countLoad);
      if  countLoad mod SpinEditCOMMITMSSQL.Value = 0)
      then begin
        ADOConn.CommitTrans;
        ADOConn.BeginTrans;
      end;

    ExportDS.Next;
  end; // конец цикла обработки данных

  ADOConn.CommitTrans;

INSERT INTO DBO.TMP_ (
checked,
bs_type,
bs_category,
name_old,
OWNEDBYORGANIZATION,
id_old,
SERVICEID,
DISPLAYNAME_old,
DISPLAYNAME,
lord,
lord_fio,
Service_TechicalManager,
priority,
status,
AVAILABILITYSCHEDULE,
notes,
grp2,
grp2l,
grp3,
grp3l,
tech_manager
)
VALUES
(
:checked,
:bs_type,
:bs_category,
:name_old,
:OWNEDBYORGANIZATION,
:id_old,
:SERVICEID,
:DISPLAYNAME_old,
:DISPLAYNAME,
:lord,
:lord_fio,
:Service_TechicalManager,
:priority,
:status,
:AVAILABILITYSCHEDULE,
:notes,
:grp2,
:grp2l,
:grp3,
:grp3l,
:tech_manager
)