[Chuwis720]

Вопрос - как именно заставить поток двигать бар? http://www.delphikingdom.com/asp/vie...catalogid=1370 - я читал эту статью, жму File - New - Thread Object, а дальше что делать то? Я пробовал в код

Код:

procedure Thread.Execute;
begin
  { Place thread code here }
end;

Вставить

Код:

While Form1.ProgressBar1.Position<100 do
 Begin
 a:=random(15);
 Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+a;
 Sleep(3000);
 Application.ProcessMessages;
 End;

А в обработчик OnClick у кнопки пишу:

Код:

Stream:=TNewThread.Create(true);
Stream.FreeOnTerminate:=true;
Stream.Priority:=tpLower;
Stream.Resume;

Не работает - подсвечивает красным строку "Stream:=TNewThread.Create(true);"

Добавляю в начало процедуры

Код:

procedure TForm2.Button1Click(Sender: TObject);
Stream: TNewThread;
begin

Не работает - подсвечивает "Stream: TNewThread;" и пишет "Unknown directive 'Stream'".
Ну и т.п. Кто нибудь знает, как правильно сделать?