Componente TCheckListBox

[Braz 0]

Boa tarde amigos,estou com certa dificuldade em manipular as propriedades deste componente. Mais precisamente como "pegar" o item selecionando.Se alguém puder ajudar, com dicas ou materiais, me será de grande valia.Grato,

[marcio.theis 3]

Pequeno exemplo pegando os marcados e mostrando:

 

procedure TForm1.BitBtn1Click(Sender: TObject);var	x: integer;	aux: string;beginfor x:=0 to CheckListBox1.Count - 1 do	begin	if CheckListBox1.State[x] = cbChecked then		begin		if aux <> '' then			aux:=aux + #13;		aux:=aux + CheckListBox1.Items.Strings[x];		end;	end;ShowMessage(aux);end;

cbChecked = marcado

cbUnChecked = não marcado

cbGrayed = nenhum das duas acima