3D Spiel mit ungekannten Fehler LOL

[Die Muhkuh]

Delphi-Quellcode:

If (TGebaude(Spielfeld.Objects[1].Children[0].Children[I]).Position.X = XGrid) and
(TGebaude(Spielfeld.Objects[1].Children[0].Children[I]).Position.Z = YGrid) and
TGebaude(Spielfeld.Objects[1].Children[0].Children[I]).Gebaut then
begin
ShowMessage('Dort könene sie nicht bauen');
Exit;
end

Könntest eventuell so abkürzen:

Delphi-Quellcode:

aGeb := TGebaude(Spielfeld.Objects[1].Children[0].Children[I]);
If (aGeb.Position.X = XGrid) and
(aGeb.Position.Z = YGrid) and
aGeb.Gebaut then
begin
ShowMessage('Dort könene sie nicht bauen');
Exit;
end