Удаление и добавление столбцов и колонок

Code:

procedure GridDeleteRow(RowNumber: Integer; Grid: TstringGrid);

var

  i: Integer;

begin

  Grid.Row := RowNumber;

  if (Grid.Row = Grid.RowCount - 1) then

    { On the last row}

    Grid.RowCount := Grid.RowCount - 1

  else

  begin

    { Not the last row}

    for i := RowNumber to Grid.RowCount - 1 do

      Grid.Rows[i] := Grid.Rows[i + 1];

    Grid.RowCount := Grid.RowCount - 1;

  end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  GridDeleteRow(3, stringGrid1);

end;