Lcategorias:='5#1408#'; cadena:='1408#'; if (Pos(Lcategorias,cadena)>0) then showmessage('encontrado') else showmessage('no encontrado');