
//
//Sample usage of the Process.pas
//


procedure ProcessIt;
const
  Last = 10000;
var
  i:        Integer;
  ProgressMan: TProgressManager;
begin
  ProgressMan := TProgressManager.Create( Application.Title,
    'Please, wait', 0, Last );

  ProgressMan.Show;
  for i:=0 to Last do
  begin
    .......	
    Application.ProcessMessages;
    ProgressMan.IncPosition;
    .......
  end;
  ProgressMan.Free;
end;
