Цикл в Delphi., Проблема с циклом в Delphi! Опции

[..::KraN::..]

Имеется цикл в программе, при его запуске форма сразу же начинает тормозить, а через 10 сек. вообще зависает, помогает только Ctrl+Alt+Del. Хотел пихнуть в поток, но не знаю как ((((( Помогите, пожалуйста!!!

[Gobbs]

Имеется цикл в программе, при его запуске форма сразу же начинает тормозить, а через 10 сек. вообще зависает, помогает только Ctrl+Alt+Del. Хотел пихнуть в поток, но не знаю как ((((( Помогите, пожалуйста!!!

В тему баян:"Учёные Японии придумали майнфрейм, который может вычислить бесконечный цикл за полторы секунды".

CODE

If chNoComments.Checked then
while pos('', s2);

весь цикл замыкается здесь. s2 в нём не изменяется=> зависание. Видимо, автор хотел получить что-то подобное:

Код

while pos('', s2)
         begin
            endln:=endln+3;
            delete(s2, start, endln-start);
         end;