Using TTObject instead of TTObjectBasePtr