[Kailon]

Код:

i:=0;
Repeat
 s:=Memo1.Lines[i];
 n:=pos('.', s);
 if n=0 then Memo1.Lines.Delete[i]
  else inc(i);
until i=Memo1.Lines.Count-1;

В данном коде увеличение счетчика происходит только при не соблюдении условия n=0... А если условия постоянно соблюдается, то вот тебе и бесконечный цикл. Попробуй так:

Код:

i:=0;
Repeat
 s:=Memo1.Lines[i];
 n:=pos('.', s);
 if n=0 then Memo1.Lines.Delete[i];
 inc(i);
until i=Memo1.Lines.Count-1;

А вообще тут вполне бы подошел for...to...do