Merlin’s Delphi ForgeYou want to save data to a temporary file but you don’t what to file name to use? Well, this function does all the work for you.
function CreateUniqueFileName(sPath: string): string;
var
chTemp: Char;
begin
repeat
Randomize;
repeat
chTemp := Chr(Random(43) + 47);
[...]