я буквально вчера делал похожую функцию, вот только процедуру я цеплял одну и ту же на все TCheckbox-ы. Нужно лишь правильно обработать Sender:
Код:
procedure TForm1.CheckBox1Click (Sender : TObject );
var
cnt:integer;
cb :TCheckBox;
cbName:string;
begin
cbName:=(Sender as TCheckBox).Name;
for cnt:=1 to ComponentCount do
begin
cb:=TCheckBox(FindComponent('CheckBox'+IntToStr(cnt)));
if cb.Name=cbName
then cb.Checked:=True
else cb.Checked:=False;
end;
end;