[angvelem]

Надеюсь не напутал:

Код:

  //obnilyaem massiv
//  for Ch := #0 to #255 do AStat[Ch] := 0;
  // так проще
  FillChar(AStat, SizeOf(AStat), 0);
...
    Memo1.Lines.Add('Буква: "' + Ch + '", использована = ' + IntToStr(AStat[Ch]) + ' ' + RaziliRazi(AStat[Ch]));