Если делать как это ты придумал - то так. Хотя алгоритм не оч хорош если честно..
Код:
var
i: Word;
ss:String;
mass: Array [1..100] of String;
begin
SS:='asdfasdf asdfasdf asdfasdf asdfasdf';
sS:=StringReplace(SS,'',',',[rfReplaceAll]);
form1.Memo1.Lines.CommaText:=sS;
for i:=0 to memo1.lines.count-1 do mass[i]:=memo1.lines.Strings[i];
end;