Aber Du hast es noch nicht ins Array verfrachtet. An Deiner Stelle würde ich mir dafür einfach eine Methode schreiben.
Delphi-Quellcode:
procedure TForm1.AddToArray(GeoObject: Tgeo_objects);
begin
SetLength(Tgeo_objectsArray, Length(Tgeo_objectsArray) + 1);
Tgeo_objectsArray[High(Tgeo_objectsArray)] := GeoObject;
end;
Übrigens sieht Deine Klassenhierarchie nicht sonderlich aus, ein bisschen Vererbung könnte nicht schaden
