Hola teecweb.
No entiendo a que te refieres con "ID".
Si es a la posición que ocupa el ítem actual, la podes obtener mediante la propiedad
ItemIndex:
Código Delphi
[-]
Caption:= IntToStr(Integer(CheckListBox1.ItemIndex));
En cambio si "ID" se refiere al campo de un DataSet, un ejemplo para cargar un campo de texto y el campo "ID" :
Código Delphi
[-]
procedure TForm1.btnCargarClick(Sender: TObject);
begin
with DataSet do
begin
Open;
while not Eof do
begin
CheckListBox1.AddItem(FieldByName('CAMPO1').AsString,
TObject(FieldByName('ID').AsInteger));
Next
end;
Close
end
end;
Para obtener el valor: (en el ejemplo se muestra)
Código Delphi
[-]
procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
with CheckListBox1 do
ShowMessage('Item: '+Items[ItemIndex] + #10#13 +
'ID: ' + IntToStr(Integer(Items.Objects[ItemIndex])));
end;
Saludos.