Q:

CheckListBox - Selecionar apenas um registro

O TCheckListBox permite selecionar diversos itens, mas diferente de alguns componentes vamos dizer "parentes dele" possui a propriedade Booleana MultiSelect.

Existe alguma função ou procedimento para que ele permita apenas 1 item selecionado?

A:

Compartilhando com os Colegas de Delphi!
Após varias pesquisas, a única opção foi implementar o evento OnClickCheck do componente, acredito que esta seja a única opção:
procedure MultiSelect;
var
  i: Integer;
begin
  with Seu_CheckListBox do
  begin
    if (Checked[ItemIndex]) then
    begin
      Items.BeginUpdate;
      for i := 0 to Pred(Items.Count) do
      begin
        if (i <> ItemIndex) then
          Checked[i] := False;
      end;
      Items.EndUpdate;
    end;
  end;
end;

Ficou 100% sem atrapalhar o Funcionamento do componente!
Caso precise ativar basta passar para o evento OnClickCheck a procedue MultiSelect, para remover passe Nil.

