[Chuwis720]

Всем привет. Я сделал прогу, в которой заполняется ProgressBar. Код такой:

Код:

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

Все в принципе работает, но! - при работе прогрессбара виснет главная форма. То есть на ней ничего нельзя сделать, даже закрыть. Пробовал поставить Application.ProcessMessages (вроде должно помочь) - не помогает... Кто знает - подскажите, как быть?

ЗЫ. Сорри, если не там тему создал, я тут новичек еще)