[Nyctos Kasignete]

Если лучше предложений не будет, то можно воспользоваться переменными окружения системы.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  userprof: PChar;
  AppData: string;
begin
  GetMem(userprof, 256);
  ExpandEnvironmentStrings(PChar('%userprofile%'), userprof, 254);
  AppData := StrPas(userprof) + '\Application Data';
  FreeMem(userprof, 256);
  ShowMessage(AppData);
end;