ChThread := TChangeOwnerThread.Create(coChange, placement_cargo_card_id);
  try
    ChThread.Start;
  finally
    if ChThread.ret_cargo_card_id <> 0 then
      begin
        ChangeQueryCargo; // обновляет основную сетку
        placement_cargo_card_id := ChThread.ret_cargo_card_id; // позиционирует курсор на запись в сетке
      end;
    ChThread.Free;
  end;

constructor TChangeOwnerThread.Create(AMode: TcoMode; const ACargoCardId: Integer);
begin
  FMode := AMode;
  Fcargo_card_id := ACargoCardId;

  FfmProgress := TfmChangeOwnerProgress.Create(nil);
  FfmProgress.ShowModal;

  OnTerminate := TerminateHandler;
  inherited Create(true);
  FreeOnTerminate := false;
end;

type
  TForm2 = class(TForm)
    ProgressBar1: TProgressBar;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  while ProgressBar1.Position < ProgressBar1.Max do
  begin
    ProgressBar1.StepIt;
    sleep(100);
  end;
end;

// 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;
    while not q.Q.Eof do
      begin
        if DoChangeOwnerCargoCard(q.Q.FieldByName('id').AsInteger, ANewContractCargoSubId) <> 0 then
          begin
            inc(ChangedCount);
            if Assigned(fP) then
              fP.Position3 := ChangedCount;
            ShowMessage(IntToStr(ChangedCount));
          end;
        q.Q.Next;
      end;