Посчитать в файле частоту букв плюс апостроф и вывести значения по каждой букве в таблице в процентном соотношении

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, OleCtnrs;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N21: TMenuItem;
    Memo1: TMemo;
    OpenDialog2: TOpenDialog;
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    procedure N21Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.N21Click(Sender: TObject);
begin
if OpenDialog2.Execute then begin
Memo1.Lines.LoadFromFile(OpenDialog2.FileName);
end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  L : TStringList;
begin
  L := TStringList.Create;
  ExtractStrings([' '], [], PChar(Memo1.Text), L);
  Edit1.Text := IntToStr(L.Count);
  L.Free;
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var C:Char;
a:array[#0..#255] of Integer;
S:string;
I,j:Integer;
X:Extended;
begin
  for C:=#0 to #255 do A[c]:=0;
  x:=0;
  for i:=0 to Memo1.Lines.Count-1 Do Begin
    S:=Memo1.Lines.Strings[i];
    For J:=1 to Length(S) do a[s[j]]:=a[s[j]]+1;
    x:=x+Length(s);
  end;
  Memo2.Lines.Clear;
  for C:=#0 to #255 do if A[c]>0 then Memo2.Lines.Add('Символ "'+C+'"->'+IntToStr(a[c])+' раз; ->'+FloatToStr(a[c]*100/x)+' %');
end;

  StringGrid1.Cells[0,0]:='Символ';
  StringGrid1.Cells[1,0]:='Повторы';
  StringGrid1.Cells[2,0]:='% повторов';
  i:=0;
  for C:=#0 to #255 do if (A[c]>0) and (c in['А'..'я','''','І','і','Ї','ї','Є','є']) then Begin
    Inc(i);
    StringGrid1.RowCount:=I+1;
    StringGrid1.Cells[0,i]:=C;
    StringGrid1.Cells[1,i]:=IntToStr(a[c]);
    StringGrid1.Cells[2,i]:=FloatToStr(a[c]*100/x);
  end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if StringGrid1.Cells[ACol,Arow]='а' then StringGrid1.Canvas.Font.Color:=clRed;
 if StringGrid1.Cells[ACol,Arow]='б' then StringGrid1.Canvas.Font.Color:=clGreen;
 if StringGrid1.Cells[ACol,Arow]='в' then StringGrid1.Canvas.Font.Color:=clLime;
 if StringGrid1.Cells[ACol,Arow]='г' then StringGrid1.Canvas.Font.Color:=clTeal;
 StringGrid1.Canvas.TextRect(Rect,Rect.Left+3,Rect.Top+2,StringGrid1.Cells[Acol,Arow]);
 StringGrid1.Canvas.Font.Color:=clBlack;
end;

var s: string;
 
begin
 if pos('П', s)>0  then RichEdit2.SelAttributes.Color:=clRed
 end;

RichEdit2.SelStart:=RichEdit1.FindText('П',0,Length(RichEdit2.text),[stMatchCase]);
RichEdit2.SelLength:=1;
RichEdit2.SelAttributes.Color:=clRed;