Вообще то тут все надо переделать.
Программа свалится после вызова функции.
1) зачем использовать HBuf буфер? Если нужно вывести в Info Note, значит размер данных маленький и
достаточно TBuf.
2) Return перенесите в конец функции. Вы не освобождаете cleanup stack.
Как минимум перед выходом за собой надо было оттуда убрать буфер и fs. Иначе программа закроется.