Classe completa no cursor não funciona

Existe uma rotina rápida GetToken para Delphi?

No meu programa, eu processo milhões de strings que têm um caractere especial, por ex. "|" para separar tokens dentro de cada string. Eu tenho uma ...