[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