Error en la Búsqueda

[Detenido]

Estimados, trabajo utilizando Delphi 6 con base de datos paradox y motor BDE. Lo que necesito hacer es realizar una consuta Sql a la tabla de nombre "ingresos" para recuperar los datos correspondientes a los campos "año", "mes" y el campo "codigo" para enviarlos a un informe, lo anterior lo he tratado de hacer utilizando el siguiente código sin éxito:

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if combobox1.Text = 'Enero' then
        begin
                form2.query1.close;
                form2.query1.sql.clear;
                form2.query1.sql.add('select * from ingresos where extract(year from fdoc) ='+ combobox2.Text +' and extract(month from fdoc)=1 ');
                form2.Query1.SQL.Add('select * from ingresos where código  =:codigo');
                form2.Query1.ParamByName('codigo').Value:= combobox3.Text;
                form2.query1.execsql;
                form2.query1.open;
                form2.QuickRep1.Preview
        end

Bueno los objetos utilizados son los que se muestran en la siguiente imagen. También les dejo el error que se genera. Agradecería infinitamente una ayudita para solucionar mi problema. Gracias.