[Страдалецъ]

Вот вам такой вариантик:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
  AllWordList,WordList: TStringList;
  i,n: Integer;
begin
 Memo1.Lines.LoadFromFile('C:\test1.txt');
 AllWordList := TStringList.Create;
 AllWordList.Duplicates := dupAccept;
 AllWordList.DelimitedText := Memo1.Text;
 AllWordList.Sort;

 WordList := TStringList.Create;
 ListBox1.Items.AddStrings(WordList);
 for i := 0 to AllWordList.Count - 1
 do begin
    n := WordList.IndexOf(AllWordList.Strings[i]);
    if n = -1
    then WordList.AddObject(AllWordList.Strings[i], TObject(1))
    else WordList.Objects[n] := TObject(Integer(WordList.Objects[n]) + 1);
    end;
 for i := 0 to WordList.Count - 1
 do ValueListEditor1.InsertRow(WordList.Strings[i], IntToStr(Integer(WordList.Objects[i])),True);
 WordList.Free;
 AllWordList.Free;
end;