мда... нифига не понял, надеюсь, что хть ты сам понимаешь что делаешь. Если хочешь, чтобы тебе помогли, учись правильно и четко формулировать вопросы.
Короче, попробуй так: сделай метод get()
type TBuilding
...
method Get:TBuilding()
return self ' вернуть себя
end method
...
end type
и в любой момент можешь "взять" объект этим методом.