[JCooper]

На скорую руку пример для кнопки (сделай этот обработчик общим для нескольких кнопок)

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   with Sender as TButton do
   begin
      case Tag of
      1:{some action};
      2:{some action};
      3:{some action};
      end;
   end;
end;

[Prisoner]

Да, если все 100 компонентов - кнопки. Если нет, то глядеть в сторону слова is, а потом, если надо, и в as .