Hola santiago14.
Una buena alternativa es usar un
TDBLookupComboBox.
Tomando el caso anterior quedaría:
Código Delphi
[-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
with DBLookupComboBox1 do
begin
ListSource := DataSource1;
ListField := 'NOMBRE';
KeyField := 'ID';
ListSource.DataSet.Last;
ListSource.DataSet.First;
end;
end;
procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
with DBLookupComboBox1.ListSource.DataSet do
Caption := Format('%s %d',[FieldByName('NOMBRE').AsString,
FieldByName('ID').AsInteger])
end;
Saludos