delphi Задать кол-во строк StringGrid через MainMenu

[dol]

Здравствуйте.
Нужно создать матрицу и заполнить случайными числами. Количество столбцов задается через ComboBox, а строк через главное меню.
Подскажите, пожалуйста, как исправить, чтобы вводились строки через главное меню программы, не могу ничего найти по этой теме.
Спасибо.

Сейчас у меня строки и столбцы выбираются через ComboBox вот так

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,n,m: Integer;
  a:array[0..50, 0..50] of Integer; 

begin

  randomize;
  n:=StrToInt(ComboBox2.Text);
  m:=StrToInt(ComboBox1.Text);
  with StringGrid1 do
  begin
    RowCount:=n+1;
    ColCount:=m+1;
    for i:=0 to n-1 do
    for j:=0 to m-1 do
    begin
      a[i,j]:=-100+Random(201);
      Cells[j+1,i+1]:=inttostr(a[i,j]);
    end;
  end;

Пытался создавать процедуры для каждого пункта меню, в которых указаны количества строк, но что-то не так делаю.

procedure N11Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N31Click(Sender: TObject);

procedure TForm1.N11Click(Sender: TObject);
begin   
    StringGrid1.RowCount := StrToInt(TMenuItem(Sender).Caption);
end;
procedure TForm1.N21Click(Sender: TObject);
begin
     StringGrid1.RowCount := StrToInt(TMenuItem(Sender).Caption);
end;
procedure TForm1.N31Click(Sender: TObject);
begin
     StringGrid1.RowCount := StrToInt(TMenuItem(Sender).Caption);
end;

На скриншоте то, как выглядит главное меню сейчас

[evg_m]

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,n,m: Integer;
  a:array[0..50, 0..50] of Integer; 

begin

  randomize;
  n:=StrToInt(ComboBox2.Text);
  m:=StrToInt(ComboBox1.Text);
// мы ведь УЖЕ установили размеры как надо и вовсе НЕ через comboBox (по крайней мере один из размеров)
  n:=StringGrid.RowCount;
  m:=StringGrid.ColCount;
...
end;

TMenuItem.OnClick как и было (установка размера через меню)

+ событие TComboBox.OnSelect (установка размера через combobox)

procedure Tform1.ComboBox2OnSelect(sender: TObject);
begin
  StringGrid.colcount:=strtoint((sender as TcomboBox).Text);
end;

[dol]

Спасибо за ответ!