[roman]

O bien, para no depender del nombre de la variable de entorno:

Código Delphi [-]
function GetWindowsTemp(): String;
var
  Buffer: array[0..MAX_PATH] of Char;

begin
  GetTempPath(SizeOf(Buffer), Buffer);
  Result := Buffer;
end;

// Saludos