Hola.
Es que no se puede asignar un valor a la propiedad
Text ya que como te indica el error es de solo lectura.
Si es correcto hacer:
Código Delphi
[-]
DBLookupComboBox1.KeyValue:= Query.FieldByName('Campo').Value;
Donde 'Campo' es el nombre del campo que declaraste en la propiedad
KeyField del
TDBLookupComboBox. (normalmente es el campo clave del
TDataSet asociado a la propiedad
ListSource )
Saludos.