Returning a TObject instead of TTObjectBasePtr