Частотный анализ текста(посимвольный)

[kestugar]

Текст вводится по выбору пользователя с клавиатуры (при этом должна быть возможность записи его в файл), либо из текстового файла; должна быть возможность анализа как всего текста, так и любой его части. Вывод результатов – на экран, принтер или в файл по желанию пользователя.
у меня анализирует только целиком текст из поле мемо. я не знаю как сделать части и как использовать SelText.

procedure symbols_s_klavi;  //процедура анализа текста из поле мемо
var
  b,i,j,n:byte;
  s:string;
begin
k:=0;
summ:=0;
for i:=1 to 255 do a[i]:=0;{обнулим исходный массив}
for b:=0 to Form1.Memo1.lines.count do
  begin
    n:=length(Form1.memo1.lines[b]);
    s:= Form1.memo1.lines[b];
    summ:=summ+n;
    for j:=1 to n do
    begin
      i:= ord(s[j]);
      a[i]:=a[i]+1;
    end;
  end;
end;

[kestugar]

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  mmo1.Lines.Clear;
  symbols_s_klavi;
    for i:=32 to 255 do
    if a[i]>0 then{если ячейка не пустая}
    begin
      Form1.mmo1.Lines.Insert(k, chr(i)+' - '+
      FloatToStrF(a[i]*100/summ,ffFixed,4,1)+'%');
      k:=k+1;
      {выводим символ и количество его вхождений}
    end;
end;

это процедуры вывода-выводит количество каждого символа в % от общего числа.