var
  btn: TButton;    procedure TForm1.FormCreate(Sender: TObject);
begin
  btn := TButton.Create(gd1);
  btn.Parent := StringGrid1;
  btn.ControlStyle := btn.ControlStyle   [csClickEvents];
  btn.SetBounds(StringGrid1.CellRect(1, 1).Left,
                StringGrid1.CellRect(1, 1).Top,
                StringGrid1.CellRect(1, 1).Right - StringGrid1.CellRect(1, 1).Left,
                StringGrid1.CellRect(1, 1).Bottom - StringGrid1.CellRect(1, 1).Top);
end;

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;