OnClick для массива компонентов

[Dj_smart]

Всем доброго времени суток!
У меня проблемка:
Создал массив компонентов(неважно каких).
А как сделать OnCilck для массива компонентов? То есть один для всех я могу (Kom[n].OnClick:=KomClick) а как сделать чтобы хотябы процедурке передавался номер компонента? То есть:

Procedure FigaroClick(NomComponent);
begin
showmessage(inttostr(NomComponrnt)) ;
end;

Помогите, кому не лень

[Баламут]

Как правило компонент имеет свойство Tag. Его и используй. Ну а потом

if (Sender as TМойКомпонент).Tag = ...

[Dj_smart]

Нет, эта штуке всегда возвращает ноль. У кого есть другие варианты?

[_Dmitry]

В обработчике события OnClick есть параметр Sender: TObject вот его и анализируй, например:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if (Sender as TButton) = Button[1] then .....;
  if (Sender as TButton) = Button[5] then .....;
end;

[Баламут]

Сообщение от Dj_smart

Нет, эта штуке всегда возвращает ноль.

Смешно, блин... Я конечно все понимаю, но все-таки в те времена, когда я учился программированию было принято хоть немного ознакомиться с предметной областью. Свойству Tag значение присваивается при создании экземпляра класса! Если ты создаешь его в дизайнере, то это находится обычно слева (список свойств объекта). Ну а если динамически ,то опять же Mycomponent.Tag := 1 и т.д.

[Dj_smart]

Всё, работает, всем спасибо.