Как сформировать таблицу частот появления символов

var
  ch: Char;
begin
  for ch := 'А' to 'Я' do
   Memo1.Lines.Add(ch);
end;

const
  // Кириллица
  RussianLetters: set of Char = ['А'..'я'];
 
  // Вероятности встречаемости русских букв в тексте.
  // Их я получил эмпирическим путём: написал специальную консольную
  // программу подсчёта и скормил ей пару десятков мегабайт текстовых
  // файлов со всякими рассказами, анекдотами и т.п.
  Probabilities: array['А'..'я'] of Single = (
       0.057, 0.010, 0.031, 0.011, 0.021, 0.067, 0.007, 0.013,   // АБВГДЕЖЗ
       0.052, 0.011, 0.023, 0.030, 0.024, 0.043, 0.075, 0.026,   // ИЙКЛМНОП
       0.038, 0.034, 0.046, 0.016, 0.001, 0.006, 0.002, 0.011,   // РСТУФХЦЧ
       0.004, 0.004, 0.000, 0.012, 0.012, 0.003, 0.005, 0.015,   // ШЩЪЫЬЭЮЯ
       0.057, 0.010, 0.031, 0.011, 0.021, 0.067, 0.007, 0.013,   // абвгдежз
       0.052, 0.011, 0.023, 0.030, 0.024, 0.043, 0.075, 0.026,   // ийклмноп
       0.038, 0.034, 0.046, 0.016, 0.001, 0.006, 0.002, 0.011,   // рстуфхцч
       0.004, 0.004, 0.000, 0.012, 0.012, 0.003, 0.005, 0.015);  // шщъыьэюя