Por un ejemplo sencillo para entender el uso de bajo TProgressBar. procedimiento archivo pas es el siguiente

unidad Unit4; 
 
interfaz 
 
utiliza 
  de Windows, mensajes, SysUtils, variantes, clases, gráficos, controles, formularios, 
  cuadros de diálogo, ComCtrls; 
 
escriba 
  TForm4 = clase (TForm) 
    progreso: TProgressBar; 
    procedimiento FormCreate (Sender: TObject);
  privadas 
    { declaraciones privadas } 
  pública 
    { declaraciones públicas } 
  final ; 
 
var 
  Form4: TForm4; 
 
aplicación 
 
{ $ R * .dfm } 
 
procedimiento TForm4.FormCreate (Sender: TObject);
var 
  I: Integer; 
empezar
  tratar 
    progress.Max: = 100 ;
    para I: = 0  a  100 - 1  do 
    comenzar 
      Application.ProcessMessages; 
      progress.Position: = I; 
      Sleep ( 50 );
    terminar ;
  finalmente 
    // progress.Max: = 0; 
  terminar ; 
  
terminar ; 
 
terminar .

FRAM archivo de la siguiente manera:

objetar Form4: TForm4 
  Izquierda = 0 
  Top = 0 
  Caption = ' Form4 ' 
  clientHeight = 300 
  ClientWidth = 635 
  color = clBtnFace 
  Font.Charset = DEFAULT_CHARSET 
  Font.Color = clWindowText 
  Font.Height = - 11 
  Font.Name = ' Tahoma ' 
  Font.Style = [] 
  OldCreateOrder = False 
  OnCreate =FormCreate 
  PixelsPerInch = 96 
  TextHeight = 13 
  objeto progreso: TProgressBar 
    Izquierdo = 0 
    Top = 283 
    Anchura = 635 
    Altura = 17 
    Align = alBottom 
    TabOrder = 0 
  extremo 
final

El resultado práctico como se muestra:

 

 El procedimiento anterior puede ser fácil de usar TProgressBar.