如何用彈出窗口顯示進度

unit　Unit1;　
　
interface　
　
uses　
　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　
　Dialogs,　ExtCtrls,　StdCtrls;　
　
type　
　TForm1　=　class(TForm)　
　　Button1:　TButton;　
　　Timer1:　TTimer;　
　　procedure　Button1Click(Sender:　TObject);　
　　procedure　Timer1Timer(Sender:　TObject);　
　end;　
　
var　
　Form1:　TForm1;　
　
implementation　
　
{$R　*.dfm}　　
　
uses　Gauges;　
　
var　Gauge1:　TGauge;　
　
procedure　TForm1.Button1Click(Sender:　TObject);　
var　
　frm:　TForm;　
begin　
　frm　:=　TForm.Create(nil);　
　frm.BorderStyle　:=　bsSizeToolWin;　
　frm.Width　:=　300;　
　frm.Height　:=　80;　
　frm.Position　:=　poDesktopCenter;　
　　Gauge1　:=　TGauge.Create(frm);　
　　Gauge1.MinValue　:=　0;　
　　Gauge1.MaxValue　:=　100;　
　　Gauge1.Width　:=　frm.ClIEntWidth　-　40;　
　　Gauge1.Height　:=　20;　
　　Gauge1.Left　:=　20;　
　　Gauge1.Top　:=　(frm.ClIEntHeight　-　Gauge1.Height)　div　2;　
　　Gauge1.Parent　:=　frm;　
　Timer1.Interval　:=　100;　
　Timer1.Enabled　:=　True;　
　frm.ShowModal;　
　frm.Free;　
　Timer1.Enabled　:=　False;　
end;　
　
procedure　TForm1.Timer1Timer(Sender:　TObject);　
begin　
　if　Assigned(Gauge1)　then　
　begin　
　　Gauge1.Progress　:=　Gauge1.Progress　+　1;　
　　if　Gauge1.Progress　=　Gauge1.MaxValue　then　TForm(Gauge1.Parent).ModalResult　:=　1;　
　end;　
end;　
　
end.