[Sky.NET]

%AppData% - Указывает путь до папки Application Data текущего пользователя, в которой хранятся настройки некоторых программ.

Код:

function GetWin(Comand: string): string;
var
  buff: array [0 .. $FF] of char;
begin
  ExpandEnvironmentStrings(PChar(Comand), buff, SizeOf(buff));
  Result := buff;
end;

Edit1.Text := GetWin('%AppData%');