procedure TForm3.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=0;
ProgressBar1.Position:=ProgressBar1.Position+20;
if ProgressBar1.Postion=100 then
Timer1.Enabled:=false;
{Дальнейшие действия программы}
end;
end.
Свойство Interval у Timer1 ставь на 5000 миллисекунд.
|