procedure InverterItens (CheckListBox: TCheckListBox);
var
  iCount: Integer;
begin
  for iCount := 0 to CheckListBox.Items.Count - 1 do
    CheckListBox.Checked [iCount] := not CheckListBox.Checked [iCount];
end;