[T-dayne]

Есть текст в memo, нужно его разбить на слова и занести в массив каждое слово.
Делаю так:

PHP код:

str:=memo1.lines[0];
for i:=1 to 20 do
begin
p:=pos(str,'');
arr[i]:=copy(str,1,p);
delete(str,p);
end; 


и так по циклу, по всем строчкам мемо.
Не работает
Чувствую что где-то напортачил в копировании каждой строки memo в переменную