(Delphi)Подсчет количества каждого символа в тексте

[walet]

По условию задачи необходимо определить, сколько раз в тексте введенном в мемо1 встречается каждый из символов (не считая пробела и знаков препинания), и вывести в мемо2 статистику (в идеале с % от общего числа всех символов)

Пытался сделать таким образом, но выводит только "?=0"

var i:byte; b,j,f:integer;
r:array[0..62]of char;
t:array[0..62]of integer;
begin
b:=192;
for i:=0 to high(r) do
r[i]:=char(b+i);
 
FillChar(t,SizeOf(t),0);
for j:=0 to memo1.Lines.Count-1 do
  for f:=0 to length(memo1.Lines[j]) do
      for i:=0 to high(r) do
      if  memo1.Lines[j][f]=r[i] then
         inc(t[i]);
 
for i:=0 to high(t) do
memo2.Lines.Add(r[i]+'='+inttostr(t[i]));

[Алексей_2012]

Вам же ответили на другом форуме

procedure TForm1.Button1Click(Sender: TObject);
var
t: PAnsiChar;
i,len: integer;
counts: array[0..255] of word;
begin
  t:=Memo1.Lines.GetText;
  len:=lstrlenA(t)-1;
  ZeroMemory(@counts,sizeof(counts));
  for i:=0 to len do
    inc(counts[ord(t[i])]);
  Memo1.Text:=Memo1.Text+#13#10;
  for i:=33 to 255 do
    if counts[i]>0 then
      Memo2.Text:=Memo2.Text+chr(i)+': '+inttostr(counts[i])+#13#10;
end;

[walet]

Сообщение от Алексей_2012

Вам же ответили на другом форуме

Да, но в при попытке компиляции вылетает identifier not found на lstrlenA и ZeroMemory

[Алексей_2012]

Костыльно, конечно, но может кто-то предложит вариант по лучше

procedure TForm1.Button1Click(Sender: TObject);
var p:Char;
i,j,len,counts:integer;
t:PAnsiChar;
begin
  Memo2.Clear;
  t:=Memo1.Lines.GetText;
  len:=Length(t)-1;

  for i:=0 to len do
  for j:=0 to len-i do
  if t[j]<t[j+1] then
  begin {Обмен элементов}
    p:=t[j];
    t[j]:=t[j+1];
    t[j+1]:=P;
  end;

  counts:=1;
  for i:=0 to  len+1  do
    if (t[i]<>t[i-1]) then
    begin
       j:=Ord(t[i]);
     if (j<>10) and (j<>13) and (j<>32) and (t[i]<>'.') and (t[i]<>',') then
     Memo2.Lines.Add(t[i]+': '+inttostr(counts));
      counts:=1;
    end else inc(counts);

   ShowMessage('Подсчет окончен! Всего символо без пробелов, точек и запятых: '+IntToStr(Memo2.Lines.Count));
end;