Bueno Primero TdateTime, no es un componente sino un tipo de dato.
No está muy claro el mensaje, pero aquí te va una idea:
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
MiFecha:TDateTime;
MiMes:String;
begin
MiFecha:=Date;
MiMes:=FormatDateTime('mmmm',MiFecha);
showMessage(MiMes);
end;
Queda para que desarrolles pasarlo a mayúsculas si fuera necesario y crear la consulta SQL, basada en el nombre del mes obtenido y guardado en una variable.
Un Saludo.
Una Observación, hay que explicar mejor las cosas.