Dajesz na formę progressbar'a i timer'a
Dajesz w Progressbarze - min 0m, max 100, Position 0. Ustawiasz Interval Timera na 100 i piszesz w OnTimer:
if Progressbar1.Position=100 then
Timer1.Enabled:=false;
Progressbar1.Position:=Progressbar1.Position+1;