No se si te refieres a algo como esto:
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
DbLookUpComboBox1.ListSource:=DataSource1;
DbLookUpComboBox1.ListField:='Codigo;Nombre';
DbLookUpComboBox1.KeyField:='Codigo';
DbLookUpComboBox1.DropDown;
end;
Un Saludo.