[*Caro*]

Hola radge, puedes utilizar la función AddObjects, digamos que el otro campo es codigo y es de tipo Int:

Código Delphi [-]
   ...........................................
   while not q.eof do begin
      combobox1.Items.AddObject(q.FieldByName('campo1').asstring, TObject(q.FieldByName('codigo').asInteger));
      q.next;
  end;
 
  //Para recuperar el segundo valor
  Codigo := Integer(combobox1.Items.Objects[combobox1.ItemIndex]);

También puedes utilizar el componente DBLookupComboBox que se enlaza directamente con tu dataset.

Saluditos