Как при нажатии на кнопку добавлять каждый раз новые строчки в StringGrid

procedure TForm2.Button2Click(Sender: TObject);
begin
    Form1.StringGrid2.RowCount:= StrToInt(Edit1.Text);
end;

if Form2.RadioGroup1.Items.Add('=')

procedure TForm2.Button1Click(Sender: TObject);
var
  Bloks,i,j,n:Integer;
begin
    Form1.StringGrid2.ColCount:= StrToInt(Edit2.Text)+2;
    //Form1.StringGrid2.RowCount:= StrToInt(Edit1.Text);
 
   if RadioGroup1.Items[RadioGroup1.ItemIndex] = '=' then Form1.StringGrid2.Cells[i,j]:='=';
 
 
//êîëè÷åñòâî áëîêîâ îãðàíè÷åíèé
   { begin
      ShowMessage('Âûáåðèòå çíàê îãðàíè÷åíèÿ!');
      exit;
    end; }
    Close;
end;
 
 
//áëîêè îãðàíè÷åíèé
procedure TForm2.FormShow(Sender: TObject);
begin
    RadioGroup1.Items.Clear;
 
    RadioGroup1.Items.Add('=');
    RadioGroup1.Items.Add('>=');
    RadioGroup1.Items.Add('<=');
end;
 
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
  const Digit=['0', '1'..'9'];
begin
  if (not (Key in Digit)) then Key:=#0;
end;
 
procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
  const Digit=['0', '1'..'9'];
begin
  if (not (Key in Digit)) then Key:=#0;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
  Form1.StringGrid2.RowCount :=Form1.StringGrid2.RowCount+StrToInt(Edit1.Text)-1;
end;
 
 
End.

procedure TForm2.Button2Click(Sender: TObject);
var
  Grid: TStringGrid;
  Count, Index: Integer;
  Sign: string;
begin
  if RadioGroup1.ItemIndex = -1
    then Exit
    else Sign:= RadioGroup1.Items[RadioGroup1.ItemIndex];
 
  Grid:= Form1.StringGrid2;
 
  // добавим 3 строки
  Count:= StrToIntDef(Edit1.Text, 0);
  if Count > 0
    then AppendGrid(Grid, Count)
    else Exit;
    
  // кол-во колонок (?)
  Grid.ColCount:= StrToIntDef(Edit2.Text, 0);
  
  // знаки неравенств в предпоследние ячейки добавленных строк
  for Index:= Count - 1 downto 0 do
    Grid.Cells[Grid.ColCount - 2]:= Sign;
end;

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids;
 
type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    RadioGroup1: TRadioGroup;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
      uses Unit1;
{$R *.dfm}
 
 
procedure TForm2.Button1Click(Sender: TObject);
var
  Bloks,i,j,n:Integer;
begin
    //Form1.StringGrid2.ColCount:= StrToInt(Edit2.Text)+2;
    //Form1.StringGrid2.RowCount:= StrToInt(Edit1.Text);
 
    Close;
end;
 
 
//блоки ограничений
procedure TForm2.FormShow(Sender: TObject);
begin
    RadioGroup1.Items.Clear;
 
    RadioGroup1.Items.Add('=');
    RadioGroup1.Items.Add('>=');
    RadioGroup1.Items.Add('<=');
end;
 
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
  const Digit=['0', '1'..'9'];
begin
  if (not (Key in Digit)) then Key:=#0;
end;
 
procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
  const Digit=['0', '1'..'9'];
begin
  if (not (Key in Digit)) then Key:=#0;
end;
 
 
procedure TForm2.Button2Click(Sender: TObject);
var
  Grid: TStringGrid;
  Count, Index: Integer;
  Sign: string;
begin
  //выберите условие
  if RadioGroup1.ItemIndex=-1 then ShowMessage('Выберите знак ограничения!')
     else Form1.StringGrid2.RowCount :=Form1.StringGrid2.RowCount+StrToInt(Edit1.Text)-1;
 
  //Form1.StringGrid2.RowCount :=Form1.StringGrid2.RowCount+StrToInt(Edit1.Text)-1;
  //Form1.StringGrid2.ColCount:= StrToInt(Edit2.Text)+2;
 
    if RadioGroup1.ItemIndex = -1
    then Exit
    else Sign:= RadioGroup1.Items[RadioGroup1.ItemIndex];
 
  Grid:= Form1.StringGrid2;
 
  // добавим 3 строки
  Count:= StrToIntDef(Edit1.Text, 0);
  if Count > 0
    then AppendGrid(Grid, Count)
    else Exit;
    
  // кол-во колонок (?)
  Grid.ColCount:= StrToIntDef(Edit2.Text, 0);
  
  // знаки неравенств в предпоследние ячейки добавленных строк
  for Index:= Count - 1 downto 0 do
    Grid.Cells[Grid.ColCount - 2]:= Sign;
 
end;
 
 
End.