[v1s2222]

Предложенное выше сразу дает путь к папке юзера (например, "C:\Users\ADMIN\"). А в переменной:

Код:

S:= IncludeTrailingPathDelimiter(GetSpecialFolderLocation($28)) + '1.txt';