[PS11011010]

Код:

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;