[PS11011010]

Ищешь первое вхождение , или . в текст. Допустим, pos(',',s)=7 (s - это каждая строка memo), а pos ('.',s)=5. В этом случае Делаешь цикл

Код:

while s[5]='.' or ',' do 
 delete(s,5,1);

Ищешь следующее вхождение...