jetzt dämmerts langsam.
Delphi-Quellcode:
if posproof(strtoint(label1.Caption),stringgrid1.Row) = false then
begin
setlength(a,2); //2)
zahl:=strtoint(label1.Caption); //zahl wird jedes mal definiert
a[zahl]:=stringgrid1.Row; //3)
label1.Caption:=inttostr(zahl+1); //zahl wird erhöht , 1)
end;
1) du erhöhst aber nur die zahl
2) dein array hat aber immer die Länge 2
3) wenn die zahl=2 ist, schepperts hier, weil du aufs 3. element zugreifst, das existiert aber gar nicht.
setlength(a,stringgrid.rowcount), mach dein array so groß wie dein grid.