[NickDang]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
progressbar1.Position :=  progressbar1.Position + 5;
if progressbar1.Position = 100 then timer1.Enabled := false;
PostMessage(ProgressBar1.Handle, $0409, 0, clGray);
end;