По идее, здесь надо бы использовать тип PChar. Получается какая-то несотыковочка - во всех функциях используется PChar, а в TData - string.