TChangeOwnerThread = class(TThread)
  private
    FMode: TcoMode;
    FParamType: TChangeOwnerParamType;
    Fcargo_card_id: integer;
    Fcontract_cargo_consignment_id: integer;
    Fcontract_cargo_sub_id: integer;
    Fconsignment_id: integer;
    Fret_cargo_card_id: integer;
    FfmProgress: TfmChangeOwnerProgress; // Окошко прогресс-баров
    Fnew_id: integer;
    Fret_message: string;
    ..............
    procedure InitBars;
    procedure UpdateBarPositions;
    .............
    property fmProgress: TfmChangeOwnerProgress read FfmProgress write FfmProgress;

    property Mode: TcoMode read FMode;
    property ParamType: TChangeOwnerParamType read FParamType;
    .............
    procedure Execute; override;
  public
    ..............
    constructor Create(AMode: TcoMode; AParamType: TChangeOwnerParamType;
                        const ACargoCardId: Integer; const ANewId: integer; ATermProc: TNotifyEvent);
    destructor Destroy; override;
  end;

constructor TChangeOwnerThread.Create(AMode: TcoMode; AParamType: TChangeOwnerParamType;
                        const ACargoCardId: Integer; const ANewId: integer; ATermProc: TNotifyEvent);
var
  q: TBISMySQLQuery;
begin
  inherited Create(true);
  FreeOnTerminate := true;
  OnTerminate := ATermProc;

  FMode := AMode;
  FParamType := AParamType;
  Fcargo_card_id := ACargoCardId;
  Fnew_id := ANewId;
  ......

  FfmProgress := TfmChangeOwnerProgress.Create(nil);
  FfmProgress.Show;
end;

destructor TChangeOwnerThread.Destroy;
begin
  FfmProgress.Free;  // на этом месте возникает ошибка
  inherited;
end;

procedure TChangeOwnerThread.InitBars;
begin
  if Assigned(fmProgress) then
    begin
      if fmProgress.Max1 <> FMaxContractCargoConsignment then
        fmProgress.Max1 := FMaxContractCargoConsignment;
      if fmProgress.Max2 <> FMaxContractCargoSub then
        fmProgress.Max2 := FMaxContractCargoSub;
      if fmProgress.Max3 <> FMaxCargoCard then
        fmProgress.Max3 := FMaxCargoCard;
    end;
end;

procedure TChangeOwnerThread.UpdateBarPositions;
begin
  if Assigned(fmProgress) then
    begin
      if fmProgress.Position1 <> FChangedCountContractCargoConsignment then
        fmProgress.Position1 := FChangedCountContractCargoConsignment;
      if fmProgress.Position2 <> FChangedCountContractCargoSub then
        fmProgress.Position2 := FChangedCountContractCargoSub;
      if fmProgress.Position3 <> FChangedCountCargoCard then
        fmProgress.Position3 := FChangedCountCargoCard;
    end;
end;

procedure TChangeOwnerThread.SetChangedCountCargoCard(const Value: integer);
begin
  FChangedCountCargoCard := Value;
  Synchronize(UpdateBarPositions);
end;

procedure TChangeOwnerThread.SetMaxCargoCard(const Value: integer);
begin
  FMaxCargoCard := Value;
  Synchronize(InitBars);
end;

procedure TfmCargoOutgoing.ThreadChangeOwnerTerminate(Sender: TObject);
var
  th: TChangeOwnerThread absolute Sender;
begin
  if th.ret_cargo_card_id <> 0 then
    begin
      ChangeQueryCargo; // перечитывает сетку
      placement_cargo_card_id := th.ret_cargo_card_id; // позиционирует курсор сетки на нужную запись
      ShowMessage(th.ret_message);
    end;
end;

procedure TfmCargoOutgoing.actChangeOwnerExecute(Sender: TObject);
var
  fDlg: TfmChangeOwnerParams;
  ChThread: TChangeOwnerThread;
begin
  fDlg := TfmChangeOwnerParams.Create(self);
  try
    fDlg.source_cargo_card_id := placement_cargo_card_id;
    if fDlg.ShowModal = mrOk then
      begin
        ChThread := TChangeOwnerThread.Create(coChange, fDlg.ParamType, placement_cargo_card_id, fDlg.new_id, ThreadChangeOwnerTerminate);
        try
          ChThread.Start;
        finally
        end;
      end;
  finally
    fDlg.Free;
  end;
end;

type
  TcoMode = (coChange, coCancel);

  TChangeOwnerThread = class(TThread)
  private
    FMode: TcoMode;
    FParamType: TChangeOwnerParamType;
    Fcargo_card_id: integer;
    Fcontract_cargo_consignment_id: integer;
    Fcontract_cargo_sub_id: integer;
    Fconsignment_id: integer;
    Fret_cargo_card_id: integer;
    FfmProgress: TfmChangeOwnerProgress;
    Fnew_id: integer;
    Fret_message: string;
    FChangedCountContractCargoConsignment: integer;
    FChangedCountContractCargoSub: integer;
    FChangedCountCargoCard: integer;
    FMaxContractCargoConsignment: integer;
    FMaxContractCargoSub: integer;
    FMaxCargoCard: integer;
    FTotalChangedCountCargoCard: integer;
    { Private declarations }

    procedure InitBars; // вызывать через Synchronize
    procedure UpdateBarPositions; // вызывать через Synchronize
    procedure SetCargoCardId(const Value: integer);
    procedure SetChangedCountCargoCard(const Value: integer);
    procedure SetChangedCountContractCargoConsignment(const Value: integer);
    procedure SetChangedCountContractCargoSub(const Value: integer);
    procedure SetMaxCargoCard(const Value: integer);
    procedure SetMaxContractCargoConsignment(const Value: integer);
    procedure SetMaxContractCargoSub(const Value: integer);
  protected
    property fmProgress: TfmChangeOwnerProgress read FfmProgress write FfmProgress; // форма с прогресс-барами

    property Mode: TcoMode read FMode;
    property ParamType: TChangeOwnerParamType read FParamType;
    property cargo_card_id: integer read Fcargo_card_id; // текущая карточка склада, задается конструктором
    property contract_cargo_sub_id: integer read Fcontract_cargo_sub_id; // подтип груза по договору в текущей карточке склада
    property contract_cargo_consignment_id: integer read Fcontract_cargo_consignment_id; // номенклатура партии
    property consignment_id: integer read Fconsignment_id; // партия

    property new_id: integer read Fnew_id; // новый id, на который нужно поменять (карточки, подтипа, номенклатуры или партии, в зависимости от ParamType)

    // Процедуры смены собственника по уровням
    ..............
    function DoChangeOwnerContractCargoSub(AOldContractCargoSubId, ANewContractCargoSubId: integer): integer;
    ....................

    procedure Execute; override;
  public
    property ret_cargo_card_id: integer read Fret_cargo_card_id; // для возвращения на ту же позицию сетки после всех операций
    property ret_message: string read Fret_message; // возвращаемое сообщение об успехе или ошибке
    property TotalChangedCountCargoCard: integer read FTotalChangedCountCargoCard write FTotalChangedCountCargoCard; // итоговое количество измененных карточек груза

    constructor Create(AMode: TcoMode; AParamType: TChangeOwnerParamType;
                        const ACargoCardId: Integer; const ANewId: integer; ATermProc: TNotifyEvent);
    destructor Destroy; override;
  end;


implementation

........

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

  FMode := AMode;
  FParamType := AParamType;
  Fcargo_card_id := ACargoCardId;
  Fnew_id := ANewId;
  .................

  FfmProgress := TfmChangeOwnerProgress.Create(nil);
  FfmProgress.Show;
end;

destructor TChangeOwnerThread.Destroy;
begin
  fmProgress.Close;
  inherited;
end;

.....
procedure TChangeOwnerThread.Execute;
begin
  if Mode = coChange then // Смена собственника
    begin
      case ParamType of
      ptConsignment:
        begin
          DoChangeOwnerConsignment(consignment_id, new_id);
          if TotalChangedCountCargoCard > 0 then
            begin
              Fret_message := 'Операция смены собственника для выбранной партии произведена успешно! ' +
                          IntToStr(TotalChangedCountCargoCard) + ' карточек передано новому владельцу.';
            end
          else
            Fret_message := 'Ни для одной карточки не произведена смена собственника.';
        end;
      ptContractCargoConsignment:
        begin
          MaxContractCargoConsignment := 1;
          DoChangeOwnerContractCargoConsignment(contract_cargo_consignment_id, new_id);
          if TotalChangedCountCargoCard > 0 then
            begin
              ChangedCountContractCargoConsignment := 1;
              Fret_message := 'Операция смены собственника для выбранной номенклатуры партии произведена успешно! ' +
                          IntToStr(TotalChangedCountCargoCard) + ' карточек передано новому владельцу.';
            end
          else
            Fret_message := 'Ни для одной карточки не произведена смена собственника.';
        end;
      ptContractCargoSub:
        begin
          MaxContractCargoConsignment := 1; MaxContractCargoSub := 1;
          DoChangeOwnerContractCargoSub(contract_cargo_sub_id, new_id);
          if TotalChangedCountCargoCard > 0 then
            begin
              ChangedCountContractCargoConsignment := 1; ChangedCountContractCargoSub := 1;
              Fret_message := 'Операция смены собственника для выбранного подтипа груза произведена успешно! ' +
                          IntToStr(TotalChangedCountCargoCard) + ' карточек передано новому владельцу.';
            end
          else
            Fret_message := 'Ни для одной карточки не произведена смена собственника.';
        end;
      ptCargoCard:
        begin
          MaxContractCargoConsignment := 1; MaxContractCargoSub := 1; MaxCargoCard := 1;
          Fret_cargo_card_id := DoChangeOwnerCargoCard(cargo_card_id, new_id);
          if Fret_cargo_card_id <> 0 then
            begin
              ChangedCountContractCargoConsignment := 1; ChangedCountContractCargoSub := 1; ChangedCountCargoCard := 1;
              Fret_message := 'Операция смены собственника для карточки склада произведена успешно!';
            end;
        end;
      end; //case
    end
  else // coCancel - Отмена смены собственника
    begin
      case ParamType of
      ptConsignment:
        begin
          DoCancelChangeOwnerConsignment(consignment_id);
          if TotalChangedCountCargoCard > 0 then
            begin
              Fret_message := 'Отмена операции смены собственника для выбранной номенклатуры произведена успешно! ' +
                          IntToStr(TotalChangedCountCargoCard) + ' карточек возвращено старому владельцу.';
            end
          else
            Fret_message := 'Ни для одной карточки не произведена отмена операции смены собственника.';
        end;
      ptContractCargoConsignment:
        begin
          MaxContractCargoConsignment := 1;
          DoCancelChangeOwnerContractCargoConsignment(contract_cargo_consignment_id);
          if TotalChangedCountCargoCard > 0 then
            begin
              ChangedCountContractCargoConsignment := 1;
              Fret_message := 'Отмена операции смены собственника для выбранной номенклатуры произведена успешно! ' +
                          IntToStr(TotalChangedCountCargoCard) + ' карточек возвращено старому владельцу.';
            end
          else
            Fret_message := 'Ни для одной карточки не произведена отмена операции смены собственника.';
        end;
      ptContractCargoSub:
        begin
          MaxContractCargoConsignment := 1; MaxContractCargoSub := 1;
          DoCancelChangeOwnerContractCargoSub(contract_cargo_sub_id);
          if TotalChangedCountCargoCard > 0 then
            begin
              ChangedCountContractCargoConsignment := 1; ChangedCountContractCargoSub := 1;
              Fret_message := 'Отмена операции смены собственника для выбранного подтипа груза произведена успешно! ' +
                          IntToStr(TotalChangedCountCargoCard) + ' карточек возвращено старому владельцу.';
            end
          else
            Fret_message := 'Ни для одной карточки не произведена отмена операции смены собственника.';
        end;
      ptCargoCard:
        begin
          MaxContractCargoConsignment := 1; MaxContractCargoSub := 1; MaxCargoCard := 1;
          Fret_cargo_card_id := DoCancelChangeOwnerCargoCard(cargo_card_id);
          if Fret_cargo_card_id <> 0 then
            begin
              ChangedCountContractCargoConsignment := 1; ChangedCountContractCargoSub := 1; ChangedCountCargoCard := 1;
              Fret_message := 'Отмена операции смены собственника произведена успешно!';
            end
          else
            Fret_message := 'Для данной карточки не может быть отменена смена собственника, т.к. ее собственник не менялся!';
        end;
      end; // case
    end;
end;

.....