Asignar TField a TDBLookupList en T.ejecución

[Bauhaus1975]

Hola, tengo un TDBLookupList (realmente es un TJvDBLookupList, de las Jedi), conectado a un data source, y este a su vez conectado a un TIBQuery (que hace de DataSet), resulta que quiero llenar la lista con uno de los campos del resultado de la query. No sé bien cómo hacerlo.
Estoy intentando asignar un campo (TField) de la query en el datasource en tiempo de ejecución. Pero no funciona, slata excepción en la linea (2ª) del 'FindField'

prueba := TField.Create(self.TJvDBLookupList); // prueba es de tipo TField
prueba := DataModule.ibQuery.FindField('TIPO');
form1.TJvDBLookupList.Field.Assign(prueba);

¿Alguien puede guiarme un poco?
Muchas gracias y un saludo.