Hola,
No sé si me estoy perdiendo algo, pero, según veo la función que escribiste arriba no devuelve nada más que una cadena vacía... al principio de la misma... ¡no hay otro "Result" en todo lo que resta de función, siempre devolverá una cadena vacía! ¿Seguro que la copiaste/transcribiste completamente? Y, por otro lado, la función devuelve un "string", no un "TStrings"... ¿No te habrás confundido con la función?