Und noch ein Tipp:
Dein Original Code:
Delphi-Quellcode:
b1:=Daten.Haus.Add(Haus1);
THaus(Daten.Haus.Items[b1]).xpos:=i2;
THaus(Daten.Haus.Items[b1]).ypos:=i;
THaus(Daten.Haus.Items[b1]).Typ:=Typ;
THaus(Daten.Haus.Items[b1]).Besitzer:=Besitzer+1;
Aber da Haus1 und auch Daten.Haus.Items[b1] genau die gleich Instanz beinhalten, kannst du natürlich das ganze einfacher gestalten, wenn du es so machst:
Delphi-Quellcode:
Daten.Haus.Add(Haus1);
Haus1.xpos:=i2;
Haus1.ypos:=i;
Haus1.Typ:=Typ;
Haus1.Besitzer:=Besitzer+1;