1:

StringGrid1.RowCount := StringGrid1.RowCount +1;					

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

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;					

1:

for i := RowNumber to Grid.RowCount - 2					

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

procedure TForm1.StringGrid2SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var row_tmp : integer;
begin
 row_tmp:=stringgrid2.Row;
 labelededit2.Text:=stringgrid2.Cells[0,row_tmp];
 labelededit3.Text:=stringgrid2.Cells[1,row_tmp];
 labelededit4.Text:=stringgrid2.Cells[2,row_tmp];
 labelededit5.Text:=stringgrid2.Cells[3,row_tmp];
 if stringgrid2.Cells[4,row_tmp] ='Nein'
  then  radiobutton1.Checked:=true
  else if stringgrid2.Cells[4,row_tmp] ='Aktiv' then radiobutton2.Checked:=true
  else if stringgrid2.Cells[4,row_tmp] ='Inaktiv'then radiobutton3.checked:=true;
end;