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

[..::KraN::..]

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

[..::KraN::..]

Воть:

  If chNoComments.Checked then
    begin
     s2:=Form1.Synedit1.text;
     Application.ProcessMessages;
        while pos('<!--', s2)<>0 do begin
        start:=Pos('<!--', s2);
        endln:=Pos('-->', s2);
        endln:=endln+3;
        delete(s2, start, endln-start);
        end;
  Form1.SynEdit1.Text:=s2;
  end;