Otra forma es usar la siguiente función:
Código Delphi
[-]
uses
ShlObj;
function GetSpecialFolder(nFolder: Integer): String;
var
Path: array[0..MAX_PATH] of Char;
begin
ShlObj.SHGetSpecialFolderPath(0, Path, nFolder, false);
Result := Path;
end;
que te da la ruta de muchos folders de este tipo. En tu caso usarías:
Código Delphi
[-]
Edit1.Text := GetSpecialFolder(CSIDL_INTERNET_CACHE);
Si consultas la ayuda del SDK de Windows para la función ShGetSpecialFolderLocation podrás ver los valores que puedes dar al parámetro nFolder.
// Saludos