Hola...
Para hacer lo que quieres solo te basta saber cual es la fecha actual, lo cual logras con la función
Now o
Date...
Teniendo la fecha actual ya sabes cual es el mes correspondiente, con ese dato ya puedes hacer tu consulta o el filtro de tu tabla:
Código Delphi
[-]
var
ADay, AMonth, AYear: Word;
FechaInicial, FechaFinal: TDateTime;
begin
DecodeDate(Now, AYear, AMonth, ADay);
FechaInicial := EncodeDate(AYear, AMonth, 1);
FechaFinal := EncodeDate(AYear, AMonth, 31); TablaVentas.Filter := 'Fecha >= ' + DateToStr(FechaInicial) + ' and Fecha <= ' + DateToStr(FechaFinal);
TablaVentas.Filtered := True
end;
Espero que este código te de una idea de como lograr lo que deseas...
Saludos...