1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Zeilelschen1Click(Sender: TObject);
var n:word; 
begin 
  with stringgrid1 do
  begin
    row:=stringgrid1.rowcount;
    if row<rowcount-1 then 
      for n:=stringgrid1.rowcount to rowcount-2 do
        rows[n]:=rows[n+1];

    rowcount:=rowcount-1; 
  end; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure GridDelRow (aRowNumber : Integer; aGrid : TStringGrid);
var 
  Loop : Integer;
begin
  aGrid.Row := aRowNumber;
  if (aGrid.Row = aGrid.RowCount -1) then
    aGrid.RowCount := aGrid.RowCount - 1
  else
    begin
      for Loop := aRowNumber To aGrid.RowCount - 1 do
        aGrid.Rows[Loop] := aGrid.Rows[Loop  + 1];
      aGrid.RowCount := aGrid.RowCount - 1;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Zeilelschen1Click(Sender: TObject);
var   
  Loop : Integer;
  aRowNumber : Integer;
  aGrid : TStringGrid;
begin  
  aGrid.Row := aRowNumber;  
  if (aGrid.Row = aGrid.RowCount -1) then  
    aGrid.RowCount := aGrid.RowCount - 1  
  else  
    begin  
      for Loop := aRowNumber To aGrid.RowCount - 1 do  
        aGrid.Rows[Loop] := aGrid.Rows[Loop  + 1];  
      aGrid.RowCount := aGrid.RowCount - 1;  
    end;  
end;					

1:

GridDelRow(1,StringGrid1);