[[egostar]]

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); //Espera 300 milisegundos, solo para ver el movimiento.
  end;
end;

Esto te dara una idea de que hacer, ya tu lo puedes personalizar en tu codigo.
Saludos