guge and timer

[student90]

мне нужно связать gauge и timer.то есть проценты в gauge увеличивались быстро на один и так до са процентов. подскажите поалуйста код. вот мой.если не правильно укажите пожалуйста
procedure TForm2.Timer1Timer(Sender: TObject);
const
Maxcount=4;
begin
gauge1.Progress:=0;
counter:=0;
counter:=counter+1;
if counter=counter+1 then gauge1.AddProgress(25);
if counter=maxcount then
begin
timer1.Enabled:=false;
gauge1.progress:=100;
end;

[Alter]

наверно я угадал что надо, вот код(интервал таймера меняйте, чтобы регулировать скорость):

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Gauge1.Progress := Gauge1.Progress + 1;
 if Gauge1.Progress>=100 then Timer1.Enabled := false;
end;