Porque este error?

[Alexandro]

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

[ContraVeneno]

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

[Neftali [Germán.Estévez]]

¿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) ...

[Alexandro]

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