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