[s0Creator]

Вот немного доделал, теперь выполняется

Код:

procedure TMainTestForm.InThreadProc(var NextPos: Integer;
  var ATerminate: Boolean);
begin
  Sleep(500);  // здесь делаем необходимые операции
  Inc(NextPos, Random(15)); // обновляем позицию
  ATerminate := (NextPos > 100);// если все сделали прекращаем
end;

с показом прогресса в отдельном окне пока не будет все сделано или прервано.

[Chuwis720]

А нельзя сие реализовать так, как начал я (через While ... do... position:=position+random(a); ), только с использованием потоков?

[s0Creator]

Сообщение от Chuwis720

А нельзя сие реализовать так, как начал я (через While ... do... position:=position+random(a); ), только с использованием потоков?

Смотри код в сообщении № 13
Inc(FPos, random(15)); это аналог FPos := FPos + random(15);
И т.к. работу с визуальными компонентами из потока надо синхронизировать выделен метод

Код:

procedure TNewThead.SetPos;
begin
  Form1.ProgressBar1.Position := FPos;
  FPos := Form1.ProgressBar1.Position;
end;

Да и в сообщении №16
метод TMainTestForm.InThreadProc выполняется в потоке в цикле и ATerminate := (NextPos > 100); можно считать аналогом While

Вообще прикрепленный к сообщению №16 проект сделан универсальным.
Достаточно в любой проект скопировать модули UProgressForm и UProgressThread.
Создать в любой форме метод

Код:

procedure InThreadProc(var NextPos: Integer; var ATerminate: Boolean);

и запустить его командой
TProgressForm.ShowInThreadProc('Заголовок', 'Сообщение', InThreadProc, Self)

Он будет циклически выполняться в отдельной нити пока ATerminate не присвоить True.
При этом в модальном окне TProgressForm будет отображаться прогресс выполнения, задаваемый NextPos.

Вид модального окна конечно можно менять.

Нашел еще одну недопечатку - перезалил

Код:

procedure TProgressThread.Execute;
//...
    if needTerminate then
      Terminate
    else
      Synchronize(SetPos);