[T232006]

Здравствуйте! Даже не знаю, как описать... Проблема смешная, но очень непонятная, но вдруг кто сталкивался...
В общем, есть некий Thread, который останавливается, как только ProgressBar достигнет максимума.

Код:

rocedure TForm1.cloudTimerTimer(Sender: TObject);
begin
  if cloudProgr.Position>=cloudProgr.Max then
  begin
    cloudTimer.Enabled:=false;
    cloudProgr.Visible:=false;
    CloudThread.Terminate;
    CloudProcBut.Visible:=false;
  end;
  cloudProgr.StepIt;

Всё работает замечательно. Но вдруг пользователь передумал и решил досрочно прервать процесс. Для этого предусмотрена кнопка, которая прогрессбару сразу присваивает максимум, тогда описанное выше событие сразу прервет тред.

Код:

procedure TForm1.CloudProcButClick(Sender: TObject);
begin
  cloudProgr.Position:=cloudProgr.Max;
end;

Но происходит невероятное - на строке CloudThread.Terminate; происходит ошибка. То есть, если прогрессбар сам достиг максимума - то нормально, а если ему помогли - то нет. Если CloudThread.Terminate включить по нажатию кнопки - тоже ошибка. Сам Thread почти ничего не делает. Как такое может быть?