Porque este error?
 

Hola amigos:
Estoy dersarrollando un programa de BD. Uso delphi 7, componentes ADO y me conecto a un servidor SQL. En mi programa quiero que cuando cliquee un boton el me muestre en una grilla los registros que pertenecen a este mes del año actual.
Necesito que miren esta consulta y me digan donde esta el error:

Código Delphi [-]
with Modulo_Conexion.QConsulta do
  begin
    Close;
     SQL.Text:='SELECT * FROM Tbl_Estimulacion WHERE EXTRACT (month FROM fecha) = '+ IntToStr(MonthOf(Date))+
             'AND EXTRACT (year FROM fecha) = '+IntToStr(YearOf(Date))+' ORDER BY fecha';
   Open;
  end;

El error que me da al activar el query es este:
Incorrect syntax near the keyword FROM

Espero que me puedan ayudar. No se que es lo que pasa.
Gracias de antemano

¿que servidor SQL estas utlizando?, ¿SQL Server?

¿Seguro que esto es correcto en SQLServer?

Código SQL [-]
... (month FROM fecha)...

Prueba a usar esto:

Código Delphi [-]
  SELECT * FROM Tbl_Estimulacion WHERE MONTH(fecha) ...

BUeno, la verdad es que la función Extract en SQL SERVER no funciona. No lo sabía.
Ya probé como dijo Neftali y me salió.

Código SQL [-]
MONTH(fecha)

Muchas gracias