Вопрос с ValueListEditor

[weg]

Привет программистам помогите плиз мне надо чтоб из Memo1 каждое слово вставлялось в ValueListEditor и количество этого слова встречающего в тексте т.е слово = количество.
вот пытался написать сам подскажите что не правильно

s:=Memo1.Lines.Text;
s := s + ' ';
n:=1;i:=2;k:=0;
ValueListEditor3.Strings.Clear;
while i<= length(s) do
begin
if s[i]=' ' then
begin
sl:=copy(s,n,i-1);
n:=i+1;
if not ValueListEditor2.FindRow(sl,k) then
ValueListEditor3.Strings.Add(sl+'=1 ')
else
begin
k:=StrToInt(ValueListEditor3.Values[sl]);
inc(k);
ValueListEditor3.Values[sl]:=IntToStr(k);
end;
end;
inc(i);
end;