A question to Delphi users

[bowser499]

Hi all there... I have one pesky problem with a code segment:

      int := pos('lvl',ts);
      repeat
        ss := replace(ss,'lvl',IntToStr(level));
        int := pos('lvl',ts);
      until int = 0;

Why this loop is infinite (the program not answering after executing this)?