[Jucho69]

Agradezco tu ayuda Nef.
Yo hice el siguiente cambio:
Agregé un cliclo con la variable " f ", si la sustituyo por la variable " e " en la linea siguiente CheckListBox1.Checked[e]:=false; me hace el mismo proceso pero a la inversa.

Disculpa la insistencia y te agradecería nuevamente tu ayuda ya que no logro el objetivo de que el marcado/desmarcado fluya bien.

Gracias

Código Delphi [-]
procedure TForm5.CheckListBox1ClickCheck(Sender: TObject);
 var i,a,j,e,f:integer;
begin
  for a:=0 to checklistbox1.items.count-1 do begin
  if  CheckListBox1.Checked[a]=false then BitBtn1.Enabled:=false;
  end;
  for j:=0 to checklistbox1.items.count-1 do begin
  if  CheckListBox1.Checked[j] then BitBtn1.Enabled:=true;
  end;

   e:=-1;
 if ComboBox1.ItemIndex=1 then  begin
   CheckBox1.Checked:=false;
   CheckListBox1.ClearSelection;

   for i:=0 to checklistbox1.items.count-1 do
    if CheckListBox1.Checked[i] then begin
      e:=i;
    for f:=1 to checklistbox1.items.count-1 do     // Este es el cambio//
     CheckListBox1.Checked[e]:=false;
      end;
    end;
   if e>=0 then CheckListBox1.Checked[e]:=true;
 end;