[dec]

Hola,

Bueno, pues al cabo yo lo dejaría como sigue... de momento.

Código Delphi [-]
procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
var
  b: boolean;
  i: integer;
begin
  b := false;
  if (CheckListBox1.ItemIndex <> -1) then
  begin
    for i := 0 to CheckListBox1.Count-1 do
    begin
      if CheckListBox1.Checked[i]
       and (i <> CheckListBox1.ItemIndex) then
         CheckListBox1.Checked[i] := false;
      if not b then
        b := CheckListBox1.Checked[i];
    end;
  end;
  BitBtn1.Enabled := b;
end;