Puedes hacer una prueba con esto:
Incluye un BitBtn y un Progressbar a tu form
en el evento Onclick del boton
Código Delphi
[-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i: Integer;
begin
ProgressBar1.Step := 1;
For i := 1 to 100 do begin
ProgressBar1.StepIt;
sleep(300); end;
end;
Esto te dara una idea de que hacer, ya tu lo puedes personalizar en tu codigo.
Saludos