Елемент Gauge

[KatCH]

Хочу, что б после того как Gauge1.Progres=100 елемент пропадал, или же, что бы его свойство Visible=False. Но почему то не получается. Елемент стает невидимым после истенчения одной секунды.

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
  Gauge1.Progress:=Gauge1.Progress+25;
   if Gauge1.Progress = 100 then
    form1.Align:=alClient;
     Gauge1.Visible:=False;
 end;

Подскажите решение.

[Kotofff]

Может так :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Gauge1.Progress:=Gauge1.Progress+25;
  if Gauge1.Progress = 100 then
    begin
    form1.Align:=alClient;
    Gauge1.Visible:=False;
    Timer1.Enabled:= false;
    end;
end;

[KatCH]

Я в шоке Все так просто оказалось. Спасибо.