Программирование в Delphi

[mahsus]

Привет, народ!
Если у меня есть штук 100 компонентов и нужно вызвать одну универсальную процедуру, в которой выполнялся универсальный код для каждого компонента, и отличался бы только объектом, на который кликнули мышью. Вобщем нужно в процедуре обработки клика мыши на компоненте вызвать процедуру и передать ей объект, на который кликнули, чтобы потом через переданную переменную добраться до свойств самого объекта. Сам компонент: DBChart. Нужное свойство: Visible.
Если можно, пару строк кода конкретно.
Буду премного благодарен.

[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 :).