unit beProgressFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TfrmProgressor = class(TForm)
  private
    { Private declarations }
  public
    procedure SetMax(aMax: Integer);
    procedure AddStep(aStep: Integer; const aText: string = '');
  end;

implementation

{$R *.dfm}

{ TfrmProgressor }

procedure TfrmProgressor.AddStep(aStep: Integer; const aText: string);
begin
//  cpbProgress.Position := cpbProgress.Position + aStep;
//  lbeHint.Caption := aText;
//  Application.ProcessMessages;
end;

procedure TfrmProgressor.SetMax(aMax: Integer);
begin
//  cpbProgress.Position := 0;
//  cpbProgress.Max := aMax;
end;

end.