Найти максимальное количество повторений числа

var
  Form1: TForm1;
  i, j: integer; //счетчик
 one,two,three,four,five: integer; //числа
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  //подготовка таблицы
  StringGrid1.RowCount := 10;
  StringGrid1.ColCount := 10;
  StringGrid1.DefaultRowHeight := 30;
  StringGrid1.DefaultColWidth := 30;
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  //заполнение таблицы
  for i := 0 to 9 do
    for j := 0 to 9 do
      StringGrid1.Cells[i, j] := IntToStr(Random(5) + 1);
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  ListBox1.Clear;
  for i := 0 to 9 do
  begin
    /////////////// считаем 1 ///////////////
     one := 0; //обнуляем переменную при проверке нового столбика
    for j := 0 to 9 do
    begin
      if StrToInt(StringGrid1.Cells[i, j]) = 1 then
        inc(one);
    end;
     ListBox1.Items.Add('Столбик ' + IntToStr(i + 1)+ ' единиц = '+ IntToStr(one)+' шт');
 
 
    /////////////// считаем 2 ///////////////
    two := 0; //обнуляем переменную при проверке нового столбика
    for j := 0 to 9 do
    begin
      if StrToInt(StringGrid1.Cells[i, j]) = 2 then
        inc(two);
    end;
    ListBox1.Items.Add('Столбик ' + IntToStr(i + 1)+ ' двоек = '+ IntToStr(two)+' шт');
 
 
    /////////////// считаем 3 ///////////////
     three := 0; //обнуляем переменную при проверке нового столбика
    for j := 0 to 9 do
    begin
      if StrToInt(StringGrid1.Cells[i, j]) = 3 then
        inc(three);
    end;
     ListBox1.Items.Add('Столбик ' + IntToStr(i + 1)+ ' троек = '+ IntToStr(three)+' шт');
 
 
      /////////////// считаем 4 ///////////////
    four := 0; //обнуляем переменную при проверке нового столбика
    for j := 0 to 9 do
    begin
      if StrToInt(StringGrid1.Cells[i, j]) = 4 then
        inc(four);
    end;
    ListBox1.Items.Add('Столбик ' + IntToStr(i + 1)+ ' четверок = '+ IntToStr(four)+' шт');
 
 
       /////////////// считаем 5 ///////////////
    five := 0; //обнуляем переменную при проверке нового столбика
    for j := 0 to 9 do
    begin
      if StrToInt(StringGrid1.Cells[i, j]) = 5 then
        inc(five);
    end;
     ListBox1.Items.Add('Столбик ' + IntToStr(i + 1)+ ' пятерок = '+ IntToStr(five)+' шт');
 
   end;
 
  end;
 
end.

Rn:=Random(5) + 1;
StringGrid1.Cells[i, j] := IntToStr(Rn);
Case Rn of
1: CountCol(i,Rn) := CountCol(i,Rn) + 1;  CountRow(j,Rn) := CountRow(j,Rn) + 1;