Wenn ich den Code aber in diesen umwandle, kommt der selbe Fehler:
Delphi-Quellcode:
procedure TS3DObject.AddGroup(Name:String; Visible: Boolean);
begin
SetLength(self.Groups,High(self.Groups));
self.Groups[High(self.Groups)]:= TS3DGroup.Create;
self.Groups[High(self.Groups)].Visible:= Visible;
self.Groups[High(self.Groups)].Name:= Name;
end;
Selected ist nicht nil.