Dynamisches Array

[Lotus]

Hallo ich habe ein dynmaisches Array
A : array of TKarte TKarte ist dafür unwichtig, könnten auch Bytes oder Integer sein, ist egal.

Aber jetzt kommt ein Fehler wenn ich Daten ins Array fügen will..
Die setLength des Array's ist am Anfang auf 0.. dann rufe ich folgende Procedure auf:

Delphi-Quellcode:

procedure cardToArray(karte:TKarte; KartenArray:array of TKarte);
var laenge:Byte;
begin
laenge:=length(KartenArray); //muesste 0 sein beim ersten aufruf
setLength(KartenGezogen, laenge+1); //hier setze ich die laenge auf 1
KartenArray[laenge]:=karte; //und hier füge ich an indexposition [0] die daten ein
end;

Da meckert Delphi rum mit der Exception:
ERangeError: Fehler bei der Bereichsüberprüfung...

Ich versteh's nicht.. die Grenzen sind doch richtig gesetzt oder nicht?