Filtro em table paradox

Em um mesmo filtro quero filtrar o campo Nome,CodBairro,CodCtg1,CodCtg2,CodCtg3, que estão na tabela Empresas, mas não quer dar certo, ele está da seguinte forma:

WFiltroP:=Trim(WFiltroP);
if (Pos(Uppercase(WfiltroP),Uppercase(TbEmpresasNome.value)) <> 0) then
begin
if (TbEmpresasCodBairro.value = WFiltroB) then
begin
if (TbEmpresasCodCtg1.value = WFiltroC) or
(TbEmpresasCodCtg2.value = WFiltroC) or
(TbEmpresasCodCtg3.value = WFiltroC) then
accept:=true
else
accept:=false;
end;
end;

Não quer dar certo, alguém pode me ajudar, uso tabelas paradox.