[pva]

вот ещё http://www.cryer.co.uk/brian/delphi/howto_get_temp.htm

Код:

function GetTempDirectory: String;
var
  tempFolder: array[0..MAX_PATH] of Char;
begin
  GetTempPath(MAX_PATH, @tempFolder);
  result := StrPas(tempFolder);
end;

Код:

t := GetEnvironmentVariable('TEMP')