Ves que hablando se entiende la gente...
Si lo que tenes es un string... ese string nunca va a tener un enter. Simplemente "termina" donde hubo un cr+lf en el archivo (o la fuente del memo).
Lo unico que tenes que verificar es que k no sea mayor a la longitud de pal, y si ya lo es, lo que tenes en Token es el último token de la línea (o un token vacio).
Hasta luego.