Como filtrar registros de uma tabela pelo mês de um campo data?

//Você pode usar a função DecodeDate( ) no evento onFilterRecord de um componente TTable. //Ex.:

// não se esqueça de mudar a propriedade Filtered para True;
// isto fará com que o evento onFilterRecord seja disparado.
procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
var
Dia, Mes, Ano: word;
begin
Accept := false;
DecodeDate(Table1['Competencia'],Ano,Mes,Dia);
if Mes=MesFiltrado then
Accept := True;
end;

{Obs.: Você pode usar este mesmo código para filtrar por Ano ou por Dia, basta utilizar a comparação adequada no bloco if ... then }