クラスを順序型にする良い方法はないでしょうか？
case ClassType of
TButton:
end;
こういう事がしたい

if (ClassType = Txx) then XX else
if (ClassType = Txx) then XX else
　　:
こういうのは嫌

今は自分で番号を決めてやっています