[R3VeRSe]

Решил задачу таким образом:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=1;
    while i <> 10 do
     begin
     i:=i+1;
     ProgressBar1.Position:=i;
     sleep(s);
     end;
end;

Программа не юзабельна пока PB не закончит, а время выполнения регулируется переменной s. Спасибо за подсказку.