[delphi-br] Filtro não funciona no D7

[Bollasette]

Olá,,, saudações a todos.

Meus amigos, o seguinte código do componente Query/Zeos
funcionava no D5 mas no D7 não funciona (não filtra)

 with Qy1Precos do
  begin
   Close;
   
Filter:='Pre_Codigo='+chr(39)+Trim(ComboBox1.Items[ComboBox1.ItemIndex])+chr(39);
   Filtered:=true;
   Open;
   Last;
end;

[ ] s
Henrique
Spo,SP