[lmikle]

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

Нельзя увеличивать i, когда произошло удаление.

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

Код:

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