Hola.
El método
Find requiere que la lista esté ordenada.
O bién ordenas la lista antes de la comprobación o podrías evitar la función
existeCadena reemplazando el condicional por:
Código Delphi
[-]
...
if AnsiPos(CadenaAComprobar, LICENCIAS.Text) <> 0 then
...
Saludos