Подсчитать количество символов в текстовом файле

...
  //Показываем результат.
  Edit1.Text := 'Файл содержит ' + IntToStr(CountAnsiChar) + ' букв кириллицы.';
...

const
  Digits = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9'];
var
  StrTmp : String;
  i, Pos1, Pos2 : Integer;
begin
  StrTmp := Edit1.Text;
  Edit2.Text := '';
  //Pos2 кроме того что обозначает позицию последней цифры в записи числа,
  //будет так же служить флагом, показывающим: завершён поиск очередного числа или нет.
  //Значение Pos2 = -1 означает, что поиск очередного числа не завершён.
  Pos2 := -1;
  for i := 1 to Length(StrTmp) do begin
    //Отслеживаем начало числа.
    if (i = 1) then begin
      if StrTmp[i] in Digits then Pos1 := i;
    end else begin
      if ( not (StrTmp[i - 1] in Digits) ) and ( StrTmp[i] in Digits ) then Pos1 := i;
    end;
    //Отслеживаем конец числа.
    if (i = Length(StrTmp)) then begin
      if StrTmp[i] in Digits then Pos2 := i;
    end else begin
      if ( not (StrTmp[i + 1] in Digits) ) and ( StrTmp[i] in Digits ) then Pos2 := i;
    end;
    //Если очередное число найдено, то копируем его в Edit2.Text.
    if Pos2 <> -1 then begin
      if Edit2.Text <> '' then Edit2.Text := Edit2.Text + ', ';
      Edit2.Text := Edit2.Text + Copy(StrTmp, Pos1, Pos2 - Pos1 + 1);
      Pos2 := -1;
    end;
  end;
end;