[logan22]

Сообщение от lmikle

А цикл в обратном порядке просто прокрутить не догадались?

Код:

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

Как не странно, оно сработало!
Но.... опять же сказу же зависла как сделало дело!)