hjælp til gauge

Jeg prøver at lave en connection form som skal bruges senere alt sql arbejde blever lavet tilsidst.

men jeg har i min conection form brugt følgende componenter.

Tlabel 1stk.
StaticText 1 stk
Gauge 1stk.
*****************************************************************
procedure TForm5.FormShow(Sender: TObject);
begin
Gauge1.MinValue := 0;
Gauge1.MaxValue := 10{sekunder}*1000{milisekunder};
Timer1.Enabled := True;
end;

procedure TForm5.Timer1Timer(Sender: TObject);
Begin
Gauge1.Progress := Gauge1.Progress + Timer1.Interval;
  if Gauge1.Progress >= Gauge1.MaxValue then
  begin
    Timer1.Enabled := False;
    Close;
end
else
begin
  Gauge1.PercentDone:='10';
  StaticText1.Caption:='Connection Done....';
  Gauge1.PercentDone:='30';
  StaticText1.Caption:='Get info for Contact list';
  Gauge1.PercentDone:='60';
  StaticText1.Caption:='Downloading Smilies';
  Gauge1.PercentDone:='80';
  StaticText1.Caption:='Building chatrooms';
  Gauge1.PercentDone:='95';
  StaticText1.Caption:='Building Games';
  Gauge1.PercentDone:='99';
  Statictext1.Caption:='Connection and building finished';
end;
close;
End;
*****************************************************************
hvad har jeg gjort forkert her?