[lmikle]

Цикл for лучше не использовать в этом случае. Примерно можно так:

Код:

I := 1;
While I < 99999 Do
  Begin
    // Do somthing ...

    If (condition) then I := 0;
    Inc(I);
  End;