TObject派生クラス = Txxxx
それ以外のクラス = Cxxxx
にしてるBCB使いの漏れ