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

[..::KraN::..]

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

[..::KraN::..]

CODE

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