Problema dblookupcombobox al hacer consulta

[Cañones]

Lo que te recomiendo es que en un datamodule tengas las consultas, fuera del form, para que sean independientes y poder llamar de distintos forms un datamodule.
Entonces en el datamodule creas un procedimiento que sea cargar TIPOSSALAS donde cerrar el dataset, lo limpias y cargas la consulta base.

QUERYSALA.SQL.Add('SELECT * FROM SALA')

Desde el form pasas los parametros para filtrar y filtras el dataset en el datamodule de la misma forma que lo haces en el form.

QUERYSALA.SQL.Add('WHERE TIPO_SALA='+quotedstr(elParametroDelFiltro)+'AND ESTADO='+quotedstr('LIBRE'));

La idea es aislar las consultas del formulario para ahorar volver a codificar cuando lo necesites en otra parte del sistema.

[Casimiro Notevi]

Lo del timer no solamente es una chapuza, es que además ese no es el problema, ni la solución.

[ecfisa]

Hola.

El problema se produce por que usas el mismo query para el DBLookupComboBox y para realizar la consulta. De ese modo, cuando asignas la cadena SQL de la consulta (en el evento OnClick) se sobreescribe la primera cadena que alimentaba al combo.

Te sugiero dos alternativas:
La primera es usar dos componentes query, uno para el DBLookupComboBox y otro para la consulta (a mi criterio la mejor opción).
La otra es poner el código que asignaste al evento OnTimer al finalizar la consulta. O también salvar previamente la consulta original en una variable y asignarla al query una vez finalizada (que es lo mismo).

Código Delphi [-]
procedure TForm4.BOTONBUSCARSALAClick(Sender: TObject);
var
  ..
  ConsultaOriginal: string;
begin
  ConsultaOriginal:= QUERYTIPOSALA.SQL.Text; // salvar cadena anterior
  //...
  // las operaciones que desees con QUERYTIPOSALA...
  //...
  QUERYTIPOSALA.Close;
  QUERYTIPOSALA.SQL.Text:= ConsultaOriginal; 
  QUERYTIPOSALA.Open;
end;

Pero como dice Casimiro, usar un TTimer no soluciona nada.

Saludos.