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