Agregar ID a checkboxlist en delphi

[ecfisa]

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.