Filtrar una tabla por mes

[JefeNet]

solucionado no se si sera la mejor manera pero me funciona filtro desde el primer dia del mes hasta la fecha actual, asi que si es 28,29, 30 o 31 el ultimo dia del mes no importa.
dejo el codigo por si alguien lo necesita

Código Delphi [-]
var
  fecha1,fecha2:string;
  mes,dia, ano:word;
begin
  decodedate(date,ano,mes,dia);
  Fecha1:=datetostr(date-dia+1); //consigo el primer dia del mes
  Fecha2:= datetostr(date);        //fecha actual
  Tabla.Filtered:=true;
  Ttabla.Filter:='Fecha >= ' + QuotedStr(Fecha1) + ' and Fecha <= ' + QuotedStr(Fecha2);

de esta manera filtro todos los registros donde la fecha este entre el primer dia del mes en curso y el dia actual.