Código Delphi [-] with Sender as TCheckListBox do State[ItemIndex] := TCheckBoxState(1 - Ord(State[ItemIndex]));
with Sender as TCheckListBox do State[ItemIndex] := TCheckBoxState(1 - Ord(State[ItemIndex]));