wenn ich da statt 1-10 0-9 eintrage klappt da erst recht garnichts mehr .....
aber egal das löst ja das eigentliche problem sowieso nicht
OK ich hatte alles richtig nur das ich statt SetLength(SpeziesB,i) und SetLength(SpeziesR,i) eine feste angabe für die arraygröße genommen habe SetLength(SpeziesB,10) & SetLength(SpeziesR,10)