[lostbananan]

Есть 12 ЧекБоксов...
Суть в том - когда установил чекбокс для всех чекбоксов надло написать по-сути один и тотт же код, вернее в зависимости от того какой чекбокс выбран - такой и сценарий...
Как это сделать?
CheckBox1Click(Sender: TObject);
но мне в этой процедуре надо знать какой именно чекбокс выбран жто делать через свойство tag? но у TObject нет такого свойства! Что делать?

[Yurk@]

Код:

case (Sender as TCheckBox).Tag of
  1 : 
    begin
      ...
    end;
  2 : 
    begin
      ...
    end;
  n : 
    begin
      ...
    end;
end;

[lostbananan]

И эту процедуру надо объявлеть в общедоступной секции кода?

[Yurk@]

это не процедура.
создай одно событие OnClick общее для все CheckBox-ов и пихай туда сей шаблон, подправив его под свои требования.
ну и за разные значения свойства Tag у всех этих CheckBox-ов не забудь

[lostbananan]

А как мне найти все Групбокси со свойством таг от 1 до 4 например?

[Yurk@]

а зачем их искать?
в момент клика по чекбоксу (Sender as TCheckBox).Tag определит Tag того чекбокса по которому кликнули