[L.Morgan]

Код:

var
  UserName : string;
  UserNameLen : Dword;

begin
  UserNameLen := 255;
  SetLength(userName, UserNameLen);
  if GetUserName(PChar(UserName), UserNameLen) then
   ('C:\Documents and Settings\'+Copy(UserName,1,UserNameLen - 1)+'\Application Data\MyProject\report.txt')

end;

Мне больше по душе такой код