filtrar dblookup com ibquery

filtrar dblookup com ibquery

Quero filtrar dois dblookups, um deles e o estado, o outro e o cidade, mas estou com dificuldade.

Estou utilizando delphi 7 - Banco de dados Firebird - Componentes paleta Interbase.

No DataModule criei uma Query (componente ibquery) na propriedade Sql inseri o codigo:

select *
from TABCIDADE
where CODIGOCIDADE = :PRMcodigocidade

PRMcodigocidade = parametro escolhido.

Fui ate o formulario cadastro, aonde estao os dois dblookups (estado, cidade) no dblookup_estado na propriedade OnCloseUp inseri o seguinte codigo:

procedure TFormCadastro.DBLKselecESTADOCloseUp(Sender: TObject);
begin

 DTM.IBQRYbuscaCidade.Close;
 DTM.IBQRYbuscaCidade.Params.ParamByName('PRMcodigocidade').AsString:=DBLKselecCIDADE.Text;
 DTM.IBQRYbuscaCidade.Open;
end;

Quando seleciono o estado, no dblookup_cidade nao acontece o filtro, ele continua me mostrando todas as cidades cadastradas na tabela. Lembrando que ele nao gera erro tambem.

Mais ou menos o codigo acima significa, ao menos e o que eu acho, me corrijam se estiver errado, que ao fechar o dblookup_estado a query vai buscar as cidades relacionadas ao estado selecionado e no dblookup_cidade mostrar os registros de cidades relacionados ao estado selecionado.

Se possivel aguardo ajuda, obrigado.