Como se asigna el index del checklistbox....

[ronimaxh]

Hola amigos del club, aquí les planteo lo que pretendo hacer para que mes den una ayudita: Tengo una tabla con los tipos de nominas lleno el checklistbox y quiero asignarle el id_nomina de la tabla para cuando marque un tipo saber que id tiene mi codigo es el siguiente:

Código Delphi [-]
//Con esto lleno el CheckListBox1begin
  with CheckListBox1 do
       begin
          st.SQL.Text:='';
          st.SQL.Text:='select * from nf_cuentasnom order by descripcion';
          st.Open;
          st.First;
          while not st.Eof do
                begin
                   Items.Add(st.fieldbyname('descripcion').AsString);
                   Items.Index:=(st.FieldByName('nomina').AsInteger); //Este es el indice que quiero
                   st.Next;
                end;
       end;
end;
// con este código consigo cuales tienen cotejo;
var i:integer;
begin
   with CheckListBox1 do
   begin
     for i:=0 to Items.Count-1 do
         begin
           if Checked[i]then
              begin
                id_nom:=ItemIndex; //Este index no es el que esta en la tabla de nomina
              end;
         end;
   end;
end;

Nota: uso sql Server 2000, delphi 7 y ado