como asigno el index de un checklisbox

[ronimaxh]

Hola amigos del club, lo que quiero hacer es llenar un checklisbox de una tabla lo que hice es esto:

Código Delphi [-]
  with frmdata.st do
   begin
    lista_form.ItemIndex:=0;
    sql.Text:='';
    sql.Text:='select * from nf_formacion';
    open;
    First;
    while not Eof do
    begin
      lista_form.Items.Add(fieldbyname('descripcion').AsString);
      Next;
    end;
  end;

con esto lleno el campo, me falta asignarle el id de esa tabla al index del checklisbox luego evaluar los index que esten cotejados para almacenar dichos index en otra tabla.

[droguerman]

los objetos que descienden de TStrings (véase TStringList por ejemplo) tienen la propiedad array objects[] que es de tipo puntero a la cual puedes asignarle algún objeto