TObjekt List Problem

[maximus Caesar]

Hallo!
Ich hab ne TObjektList vom Namen Daten.Haus
Haus 1 ist vom Typ THaus
ich füge jetzt Daten.Haus ein Objekt vom Typ Haus1 hinzu, und gebe Werte an:

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;

auslesen tue ich diese z.B. so:

b1:=THaus(Daten.Haus.Items[x]).ypos; auf diese Art speichere ich mehrere Objekte vom Typ Haus1 in der TObjektList Daten.Haus
jedes dieser Objekte hat Unterschiedliche Werte, und bei xpos und ypos kommt keine kombination doppelt vor.
Lese ich diese Werte jetzt von verschiedenen Objekten aus, so sind alle Werte immer die Gleichen.
Wo liegt mein Fehler?