いたずらにクラス名を増やさずにすむ裏技
type
　TObject = class(System.TObject)
　end;