Erstmal:
Wie hängen deine beiden Codes von einander ab?
Sind die in einer Funktion? Wenn ja, auch beides innerhalb der for-Schleife aus dem ersten Quell-Code?
Zweitens:
das:
Delphi-Quellcode:
var save: array of TKante;
[...]
setlength(save,0);
save[0]:=Tkante.create;
funktioniert?
Durch die SetLength Anweisung hat das Array save doch die Länge 0. Wie kannst du da auf den Index 0 zugreifen?