Как Узнать Путь К Папке Где Хранятся Временные Файлы?

[Sascha]

Как узнать путь к папке где хранятся временные файлы?

function TempPath: string;
var
  i: integer;
begin
   SetLength( Result, MAX_PATH );
   i := GetTempPath( Length( Result ), PChar( Result ) );
   SetLength( Result, i );
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage( TempPath );
end;