Aquí otra funcion que he necesitado para llegar a la carpeta AppData. Usa las apis de Windows (Fake me has enganchado a usarlas xD):
[Enlace externo eliminado para invitados] y [Enlace externo eliminado para invitados]
Devuelve la carpeta que necesites a partir de su CSIDL, podeis obtenerlos de aqui: [Enlace externo eliminado para invitados]

Function sDir(csidl : Integer): String;
  var
  buf: array[0..MAX_PATH] of Char;
  pi : PItemIDList;
  begin
   if ShGetFolderLocation(0, csidl, 0, 0, pi) <> S_OK  then Exit;
   ShGetPathfromIDList(pi, buf);
   Result := buf;
end;

ShowMessage (sDir(CSIDL_DESKTOP));

Esto devuelve el directorio del escritrio por ejemplo.

Salu2 !