[adidas]

Код:

uses Math, ShlObj;
...
function GetSpecialPath(CSIDL: word): string;
var s: string;
begin
SetLength(s, MAX_PATH);
if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)
then s := GetSpecialPath(CSIDL_APPDATA);
result := PChar(s);
end;
...
var
  path: string;
begin
  path:=GetSpecialPath(CSIDL_APPDATA) +'\filename_' +IntToStr(RandomRange(1000,9999999)) +'.zip';