listbox com sql

Pessoal,

Estou com conexao ADO, dois listbox.
Conforme o usuário seleciona um item do primeiro listbox o segundo
deve executar um sql e preencher o segundo listbox. Neste segundo
listbox o compilador informa que não existe o campo1 embora esteja
no BD.

Se alguém souber corrigir agradeço.


// item selecionado do listbox1
s:=lista1.Items.Strings[llista1.ItemIndex];

//segundo listbox a ser preenchido com consulta sql
with DM1.qLista2 do
begin
DM1.qLista2.Close;
DM1.qLista2.SQL.Clear;
DM1.qLista2.SQL.Add(´SELECT campo1 FROM tabela´);
DM1.qLista2.SQL.Add(´WHERE campo2=:selecao´);
DM1.qLista2.parameters.ParamByName(´selecao´).Value:=s;

lista2.Items.Add(DM1.qLista2.FieldByName(´campo1´).value);
DM1.qListaUnM.open;

end;