utilise cette fontion
function TempFilename(const SDir,SPref: String): String;
var
Buffer: array[0..MAX_PATH] of Char;
begin
StrPCopy(buffer,SDir);
GetTempFileName(Buffer,pchar(Sref),0,Buffer);
SetString(Result, Buffer, StrLen(Buffer));
end;
comme il est bien indiqué dans l'aide, seul les 3 premiers caractères de ta chaine prefixe seront utilisés, dans ton cas 'D7_'