Delphi. Вывести наиболее часто повторяющуюся цифру из строки символов

[Kurai]

В строке символов, введенных в StringGrid(1строка), найти наиболее часто повторяющуюся цифру

я неочень понимаю, в стринггриде может быть 5 ячеек, а символов внутри нее 15...как нам выделять отдельные символы? как вообще это организовать

я сделала

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

 var
Form1:TForm;
a:array of char;
n,i,max: Integer;
chastota:array of integer;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
chastota:=0;   //частота появления цифры
for i:=1 to n do
if a[i] in ['0'..'9'] then  //если символ - цифра
begin
inc(chastota[i]);
end;
max:=0;
for i:=0 to 9 do if chastota[i]>chastota[max] then max:=i;
  Edit1.Text:=(IntToStr(max));   //выводим  результат
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin        // таблицы
    n:=StrToInt(Edit2.Text);
{Задание числа строк и столбцов в таблицах}
   StringGrid1.ColCount:=N;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Clear; Edit2.Clear;
end;

end.

что мне нужно добавить, а точнее как мне вообще организовать программу, чтобы считывались отдельно символы...

[Shaitan63]

обращение к ячейки в стрингрит осуществляется командой stringgrid1.Cells[x,y] работаешь в нём так как с массивом(двумерным), но номерячеек начинается с 0