Funcion?

[ecfisa]

Hola.

Un DBLookupComboBox tampoco sería mala elección. Pero, si como mencionas en el mensaje #5, ya recorres la consulta para almacenar los datos obtenidos en el ComboBox, otra alternativa podría ser:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  tuQuery.Close;
  tuQuery.SQL.Text:= 'SELECT CAMPO_A_MOSTRAR, ID FROM TU_TABLA';
  tuQuery.Open;
  while not tuQuery.Eof do
  begin
    ComboBox1.Items.AddObject(tuQuery.FieldByName('CAMPO_A_MOSTRAR').AsString,
      TObject(tuQuery.FieldByName('ID').AsInteger));
    tuQuery.Next;
  end;
  tuQuery.First;
end;

Obtener el ID, ejemplo:

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
var
  Id: Integer;
begin
  Id := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]); // valor del campo ID correspondiente a la selección
  Caption := IntToStr(Id); // hacer algo con Id...
  ...
end;

Saludos.