function TfmCargoOutgoing.DoChangeOwnerContractCargoSub(AOldContractCargoSubId,
  ANewContractCargoSubId: integer): integer;
var
  CardCount: integer;
  q: TBISMySQLQuery;
  ChangedCount: integer; // кол-во измененных карточек
//  f: TForm;
//  i: integer;
//  pb: TProgressBar;
begin
  ChangedCount := 0;

  q := TBISMySQLQuery.Create;
  try
    // 1. Определить количество карточек для переноса
    q.From('cargo_card', 'cc');
    q.Select('COUNT(*) AS cnt');
    q.Where('object_type= ?', 'placement');
    q.AndWhere('get_weight_brutto_remains(cc.id) > 0', '');
    q.AndWhere('cc.contract_cargo_sub_id=?', AOldContractCargoSubId);
    q.Open;
    CardCount := q.Q.FieldByName('cnt').AsInteger;
    if Assigned(fP) then
      fP.Max3 := CardCount;

    // 2. Перенести все карточки в новый подтип груза по договору
    q.From('cargo_card', 'cc');
    q.Select('cc.id');
    q.Where('object_type= ?', 'placement');
    q.AndWhere('get_weight_brutto_remains(cc.id) > 0', '');
    q.AndWhere('cc.contract_cargo_sub_id=?', AOldContractCargoSubId);
    q.Open;

//      f := TForm.Create(nil);
//  f.SetBounds(0, 0, 300, 70);
//  f.Position := poScreenCenter;
//  pb := TProgressBar.Create(f);
//  pb.Align := alClient;
//  pb.Parent := f;
//  pb.Min := 0;
//  pb.Max := CardCount;
//  pb.Step := 1;
//  f.Show();
//  for i := pb.Min to pb.Max do begin
////    pb.StepIt;
//    pb.Position := i;
//    sleep (100);
//  end;


    while not q.Q.Eof do
      begin
        if DoChangeOwnerCargoCard(q.Q.FieldByName('id').AsInteger, ANewContractCargoSubId) <> 0 then
          begin
            inc(ChangedCount);
//            pb.StepIt;

            if Assigned(fP) then
              fP.Position3 := ChangedCount;
//            ShowMessage(IntToStr(ChangedCount));
          end;
        q.Q.Next;
      end;

//    f.Free;
  finally
    q.Free;
    Result := ChangedCount;
  end;
end;

TChangeOwnerThread = class(TThread)
  private
    FfmDlg: TMyDialogWindow;
    ...
    procedure Execute; override;
  public
    constructor Create(AMode: TcoMode; const ACargoCardId: Integer; ATermProc: TNotifyEvent);
    destructor Destroy; override;
  end;

...
constructor TChangeOwnerThread.Create(AMode: TcoMode; const ACargoCardId: Integer; ATermProc: TNotifyEvent);
begin
  inherited Create(true);
  FreeOnTerminate := true;
  OnTerminate := ATermProc;

  FMode := AMode;
  Fcargo_card_id := ACargoCardId;

  FfmDlg := TfmMyDialog.Create(nil);
  if FfmDlg.ShowModal = mrOk then
    ...
end;

destructor TChangeOwnerThread.Destroy;
begin
  FfmDlg.Free;
  inherited;
end;

procedure TChangeOwnerThread.DoChangeCardOwner;
begin
  ...
  ADQuery1.ParamByName('old_card_id').AsInteger := FfmDlg.OldCardId;
  ADQuery1.ParamByName('new_card_id').AsInteger := FfmDlg.NewCardId;  
  ADQuery1.ExecSql;
end;

// Процедуры смены собственника по уровням
    procedure DoChangeOwnerConsignment(AOldConsignmentId, ANewConsignmentId: integer);
    function DoChangeOwnerContractCargoConsignment(AOldContractCargoConsignmentId, ANewContractCargoConsignmentId: integer): integer;
    function DoChangeOwnerContractCargoSub(AOldContractCargoSubId, ANewContractCargoSubId: integer): integer;
    function DoChangeOwnerCargoCard(AOldCargoCardId, ANewContractCargoSubId: integer): integer; // возвращает id новой карточки