[W1ndow]

Код:

procedure TForm1.FindSymbols;
var i,j,c: integer; s,t: string;
begin
  ValueListEditor1.Strings.Clear;
  s:=Edit1.Text;
  For i:=1 to Length(s) do begin
    t:=Memo1.Text; c:=0;
    For j:=1 to Length(t) do
      if t[j] = s[i] then c:=c+1;
    ValueListEditor1.InsertRow(s[i],IntToStr(c),true);
  end;
end;

Вот посмотри может не самый оптимальный, но рабочий. В эдите находится строка символов "абвгд" не чем не разделённая.
Поиск произойдёт для каждого символа из этой строки.