Jeeves JML progressbar

progressbar.pas

oPrgBar := Application.CreateProgressDlg('Some message to display',5);
If oPrgBar <> '' then begin
  //Display progress bar
  oPrgBar.SetStyle(0);                           //0 = straight, 1 = Circular     
  oPrgBar.SetCancelButton(false);                //Disable cancel
  oPrgBar.show;
  oPrgBar.IncCount;                              //Display incremention 
  sleep(1000);
  oPrgBar.IncCount;                              //Display incremention 
  sleep(1000);
  oPrgBar.IncCount;                              //Display incremention 
  sleep(1000);

  //Close progress bar
  oPrgBar.close;
end;