1unit ProgressForm;
 2
 3interface
 4
 5uses
 6  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls,
 7  Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls;
 8
 9type
10  TfrmProgress = class(TForm)
11    ProgressBar: TProgressBar;
12  private
13    { Private declarations }
14  public
15    { Public declarations }
16  end;
17
18var
19  frmProgress: TfrmProgress;
20
21implementation
22
23{$R *.dfm}
24
25end.
26