Código Delphi [-] if (Components[i] is TCheckBox) and (Components[i].Tag in [16..24]) then
if (Components[i] is TCheckBox) and (Components[i].Tag in [16..24]) then