ProgressBar

[Nice42ru]

Как сделать чтобы при нажатии на кнопку (Button1) прогресс бар оживился тоесть пошли квадратики как в установке программ и заполняли его а по окончанию (когда он до конца дойдёт) в середене экрана появилось сообщение?

[raxp]

progressbar1.position:=

[Nice42ru]

procedure TForm1.Button1Click(Sender: TObject);
begin
progressbar1.position:='1';
end;

end.

так неработает можно полный код?

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var S:string;
    n,i:integer;
begin
 for i:=0 to 100 do
 begin
  ProgressBar1.Position:=ProgressBar1.Position+1;
  Application.ProcessMessages;
  sleep(10);
 end;
 ShowMessage('Всё!')
end;

[Nice42ru]

Спасибо огромное! тему можно закрыть!