Нужна помощь с ValueListEditor

[weg]

Привет программистам помогите плиз мне надо чтоб из Memo1 каждое слово вставлялось в ValueListEditor и количество этого слова встречающего в тексте т.е слово = количество.
вот пытался написать сам подскажите что не правильно
[syntax='Delphi']
s:=Memo1.Lines.Text;
s := s + ' ';
n:=1;i:=2;k:=0;
ValueListEditor3.Strings.Clear;
while i<= length(s) do
begin
if s=' ' 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;
[/syntax]

[Хыиуду]

А в чем, собственно, проблема?