[Yurk@]

Код:

procedure GetCheck ( Buff_box : TCheckBox );
var
cnt:integer;
cb :TCheckBox;
begin
for cnt:=1 to ComponentCount do
begin
cb:=TCheckBox(FindComponent('CheckBox'+IntToStr(cnt)));
if cb.Name=Buff_box.Name 
then cb.Checked:=True
else cb.Checked:=False;
end;
end;