[R-18Rus]

))) ещё бы не зависла.
Цикл

Код:

For i := Memo1.Lines.Count-1 DownTo 0 Do
  If Pos('.',Memo1.Lines[i]) = 0 Then Memo1.Lines.Delete(I);

нужно подставлять вместо

Код:

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;

, а ты их вместе используешь.