Agrega un botón y pone en su evento OnClick
Código Delphi
[-]
ShowMessage( ClientModule1.Tsubprod.Filter)
Efectúa un par de filtrados y luego clickea el botón así ves el contenido de la variable que maneja el filtro
En cada evento de filtrado no estas teniendo en cuenta los filtros anteriores, ya que estas asignando y remplazando el filtro anterior
Con el botón te das cuenta enseguida
Saludos