zur info: die zeilen zählen von (0..rowcount-1)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var lastrow:integer;
begin
lastrow:=StringGrid1.RowCount;
StringGrid1.RowCount:=lastrow+1; // hier um eine zeile erweitern
StringGrid1.Cells[0,lastrow]:=Fach.Text;
StringGrid1.Cells[1,lastrow]:=IntToStr(Punkt);
end;