چگونه از شی gauge یا progressbar استفاده کنم

[ali-bagban]

با سلام
چگونه میتوانم از زمان استارت برنامه تا ظاهر شدن فرم اصلی از شی gauge یا progressbarاستفاده نمایم(منظورم کد نویسی آن است) و یا از زمان کلیک یک شی button تا لحظه ظاهر شدن یک فرم جدید
با تشکر - باغبان

[mfarzan2004]

سلام این کد کار با progressbar
است برو استفاده کن
====================

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
Label1: TLabel;
Timer1: TTimer;
XPManifest1: TXPManifest;
ProgressBar1: TProgressBar;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
y,x:integer;
begin
with ProgressBar1 do
begin
Min :=0;
max :=9000;
// Max := Customers.RecordCount;
// Customers.First;
for x := Min to Max do
begin
Position := x;
if x=max then
begin
ProgressBar1.Visible:=true;
form2.show;
form1.Hide;
timer1.Enabled:=false;
end;
end;
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Visible:=true;
Timer1.Enabled:=true;
end;

end.