Добавить в StringGrid конкретное количество строк в конец

StringGrid1.RowCount := StringGrid1.RowCount + 10;

procedure TForm1.deletestrClick(Sender: TObject);
var
 i, h: integer;
begin
 with StringGrid1, Selection do
 begin
   h := Bottom - Top + 1;
   for i := Top to RowCount - h - 1 do
     Rows[i].Assign(Rows[i + h]);
   RowCount := RowCount - h;
 end;
end;
 
procedure TForm1.addstrClick(Sender: TObject);
begin
 
if kolvostr.Text <>'' then
begin
StringGrid1.RowCount := StringGrid1.RowCount + strtoint(kolvostr.Text);
end;
if kolvostr.Text = '' then
begin
StringGrid1.RowCount := StringGrid1.RowCount + 1;
end;
 
 
 
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  v: integer;
begin
  s := '1';
  if InputQuery('Увеличение количества строк', 'Введите количество добавляемых строк (1..100):', s) then
  begin
    if TryStrToInt(s, v) and (v >= 1) and (v <= 100) then
      StringGrid1.RowCount := StringGrid1.RowCount + v
    else
      ShowMessage('Введите корректное целое число от 1 до 100');
  end;
end;