Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.close;
Query1.Sql.Clear;
Query1.Sql.Add('Select * From Factura');
Query1.Sql.Add('Where Extract(Year from Fecha)= '+QuotedSTR(Edit1.Text));
Query1.Sql.Add('And Extract(Month from Fecha) = '+QuotedSTr(IntToStr(combobox1.itemindex+1)));
Query1.Open;
end
Aquí tienes otro ejemplo.
Un Saludo.