ist es nicht eher so?
Delphi-Quellcode:
procedure TSplashScreen.Timer1Timer(Sender: TObject);
begin
if Progressbar1.position > 99
then progressbar1.position := 0;
progressbar1.position := progressbar1.position + 1;
end;
(ohne else, sonst wird nicht endlos, oder?)