[Asinkrit]

Вот тебе рабочий вариант.
Подсчитывает кол-во каждого символа в тексте.,

Код:

procedure TForm1.FindSymbols;
var
  a:array [0..255] of Integer;
  i:integer;
begin
  for i:=Low(a) to high(a) do a[i]:=0;
  with Memo1 do
    for i:=1 to Length(Text) do
      Inc(a[Ord(Text[i])]);
  ValueListEditor1.Strings.Clear;
  for i:=32 to 255 do
    if a[i]>0 then
      ValueListEditor1.InsertRow(Char(i),IntToStr(a[i]),true);
end;