[jhonny]

Con esos componentes funciona el método 2do que acabas de utilizar:

Código Delphi [-]
Accept := (Periodo= 1);

Pero para que se dispare en alguna parte del código deberás colocar el Filtered en True. Cosa que comúnmente se ve así:

Código Delphi [-]
RxM.Filtered := False;
Rxm.Filtered := True;