[Akzes]

Код:

function GetCheck(BuffBox: TCheckBox);
var
  i:integer;
begin
  for i := 0 to ControlList.Count - 1 do
     if (TControl(ControlList[i]) is TComboBox) and (TComboBox(ControlList[i]).Name = BuffBox.Name) then
    BuffBox.Checked := True
    else
    BuffBox.Checked := False;
end;

вроде так