Problema dblookupcombobox al hacer consulta

[gersojn]

Claro, siento no ha ver colocado el codigo, la funcion donde realizo la consulta es el siguiente.
dblookupcombobox = COMBOTIPOSALA

Código Delphi [-]
procedure TForm4.BOTONBUSCARSALAClick(Sender: TObject);
var tiposala:String;
begin
if COMBOTIPOSALA.Text = '' then
begin
QUERYSALA.Close;
QUERYSALA.SQL.Clear;
QUERYSALA.SQL.Add('SELECT * FROM SALA WHERE ESTADO='+quotedstr('LIBRE'));
QUERYSALA.Open;
end;

if COMBOTIPOSALA.Text <> EmptyStr then
begin
tiposala:= COMBOTIPOSALA.Text;
QUERYTIPOSALA.Close;
QUERYTIPOSALA.SQL.Clear;
QUERYTIPOSALA.SQL.Add('SELECT TIPO_SALA,NOMBRE FROM TIPO_SALA WHERE NOMBRE='+quotedstr(tiposala));
QUERYTIPOSALA.Open;
tiposala:=QUERYTIPOSALA.FieldByName('TIPO_SALA').AsString;
QUERYSALA.Close;
QUERYSALA.SQL.Clear;
QUERYSALA.SQL.Add('SELECT * FROM SALA WHERE TIPO_SALA='+quotedstr(tiposala)+'AND ESTADO='+quotedstr('LIBRE'));
QUERYSALA.Open;
COMBOTIPOSALA.KeyValue:=null;

end;

end;

En cuanto al dblookupcombobox lo tengo configurado en las propiedades del componente, en la barra Object Inspector.
Y nuevamente gracias por las respuestas