ProgressBar endlosschleife

[Clane]

was ist an dem code falsch ?? ich will das die prograssbar inner endlosschleife läuft .... geht aba net und so wirklich versteh kann ichs net

Delphi-Quellcode:

procedure TSplashScreen.Timer1Timer(Sender: TObject);
begin
   if i = 100 then i := 0 else i := i + 1;
   Progressbar1.Position := i;
end;

PS: i ist als integer als globale var declariert