Ein kompromiss sähe vll. so aus:
Delphi-Quellcode:
with Daten.Haus.Items[Daten.Haus.Add(THaus.Create)] as THaus do
begin
xpos:=i2;
ypos:=i;
Typ:=Typ;
Besitzer:=Besitzer+1;
end;
Die Hilfsvariable könnte man zu Gundten der Übersichtlichkeit wieder hinzufügen, aber das mit dem with ... do ist hier
imho am besten
