Error en la Búsqueda

[*Caro*]

Hola Detenido, estas utilizando 2 Select, solo debes utilizar 1 y para ejecutar tu consulta solo Open.

Código Delphi [-]
 .................................
 With form2.query1 do
 begin
  close;
  sql.clear;
  sql.add('select * from ingresos where extract(year from fdoc) ='+ 
  combobox2.Text +' and extract(month from fdoc)=1 and codigo=:codigo');  
  ParamByName('codigo').Value:= combobox3.Text;
  open;
  form2.QuickRep1.Preview
 end;
 ........................

Saluditos