найти слова в тексте

[boshki]

нужно найти слова в тексте двух типов, коменты пропустить, написал такую процедурку, но почему-то при ее вызове прога зависает, что я не так делаю?

var n:integer;
ch:char;
begin
slovo:='';
n:=length(form1.Edit1.Text);
if i<=n then 
begin
ch:=form1.Edit1.Text[i];


if ch=' ' then while ch =' ' do
                 begin
                 inc(i);
                 ch:=form1.Edit1.Text[i];
                 end;

while ch <> ' ' do
begin
if ch='{' then while ch<>'}' do
                 begin
                 inc(i);
                 ch:=form1.Edit1.Text[i];
                 end;
  
if (ch in ['0','1']) then
             begin
                while (ch in ['0','1']) do
                begin
                slovo:=slovo+ch;
                end;
             end;
if (ch in ['a'..'d']) then
             begin
                while (ch in ['a'..'d']) do
                begin
                slovo:=slovo+ch;
                end;
             end;
inc(i);
ch:=form1.Edit1.Text[i];
end;
end;