Funcion?

[ecfisa]

Hola de nuevo.

Recién me percato de que estamos en el foro C++ Builder...

Entonces sería:

void __fastcall TForm1::FormCreate(TObject *Sender) {
  tuQuery->Close();
  tuQuery->SQL->Text = "SELECT CAMPO_A_MOSTRAR, ID FROM TU_TABLA";
  tuQuery->Open();
  while (!tuQuery->Eof){
    ComboBox1->Items->AddObject(tuQuery->FieldByName("CAMPO_A_MOSTRAR")->AsString,
      (TObject*)tuQuery->FieldByName("ID")->AsInteger);
    tuQuery->Next();
  }
  tuQuery->First();
}

Obtener el ID:

void __fastcall TForm1::ComboBox1Change(TObject *Sender) {
  int Id = Integer(ComboBox1->Items->Objects[ComboBox1->ItemIndex]);
  Caption = IntToStr(Id);
}

Saludos.