procedure GridDeleteRow(RowNumber : Integer; Grid : TStringGrid);
Var
i : Integer;
Begin
Grid.Row := RowNumber;
If (Grid.Row = Grid.RowCount -1) Then
Begin
Grid.RowCount := Grid.RowCount - 1;
End
Else
Begin
For i := RowNumber To Grid.RowCount - 1 Do
Begin
Grid.Rows[i] := Grid.Rows[i+ 1];
End;
Grid.RowCount := Grid.RowCount - 1;
End;
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
GridDeleteRow(3,StringGrid1);
end;