Создай на форме таймер(TTimer). В обработчик события OnTimer(два раза клацни по таймеру) напиши:
Код:
a := random(15);
Form1.ProgressBar1.Position := Form1.ProgressBar1.Position + a;
Timer1.Interval := random(3000);
if Form1.ProgressBar1.Position > = 100 then begin
Timer1.Enabled := false;
// Другие события, которые должны выполнятся при заполнении прогрессБара
end;
Admin: Пользуемся тегами!
Этот метод самый простой и самый надежный.
Моя аська 398202116, можеш написать в аську, я подробней опишу.