asignar los registros de una consulta a un bdlookupcombobox

[yorgelis]

joelphi lo siento pero probe las variantes que me diste y no me funcionan lo primero es cuando intento mediante codigo lo siguiente
DbLookupcombobox1.Datasource.Dataset := Query.Dataset;
Dblookupcombobox1.keyField := Query.Dataset.fiedbyName("Id");
Dblookupcombobox1.ListField := Query.Dataset.fiedbyName("Nombre");
primero mi query no tiene las propiedades dataset por tanto no puedo acceder a la de fieldbyname a no ser de esta manera
unidad.DataSource.DataSet:=Query1.DataSource.DataSet;
unidad es el name de mi dblookupcombobox ahora mediante esta manera el project explota y me dice que no hay memoria suficiente para la operacion en realidad no se que hacer estoy muy apurado con esta cosa debido a esto no he podido avanzar en el proyecto que estoy haciendo se que esas cosas son sencillas pero no me salen falta de trabajar en esto si alguien puede ayudarme de nuevo se los agradeceria mucho recuerden que estoy trabajando en delphi 7 a lo mejor tiene propiedades distintas en sus componentes lo cual debe ser muy seguro gracias a todos.