Sice nebude tak hezký jako ten výše zmíněný, ale bude vypadat velmi profesionálně (jako například "~51a4.tmp" ). :)
function GetTempFile(const Extension: string): string;
var
Buffer: array[0..MAX_PATH] OF Char;
aFile : string;
begin
repeat
GetTempPath(Sizeof(Buffer)-1,Buffer);
GetTempFileName(Buffer,'~',0,Buffer);
result := ChangeFileExt(Buffer,Extension);
until not FileExists(result);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetTempFile('.~tp'));
end;
A rada na úplný závěr dnešního dílu? Sice už se asi možná opakuji, ale nezapomínejte své dočasné soubory po sobě mazat.