引数TObjectからNameを取得するには (ID:6897)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Tag に数値を入れておけば、 case TComponent(Sender).Tag of で簡単に分かるよ