Obtenir un nom de fichier temporaire

function GetTempFile( const Extension: string): string;
var
Buffer: array[0..MAX_PATH] OF Char;
aFile : string;
begin
GetTempPath(Sizeof(Buffer)-1,Buffer);
GetTempFileName(Buffer,'~',0,Buffer);
result := StrPas(Buffer);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetTempFile('.tmp'));
// The temp. file looks like C:WINDOWSTEMP~61D5.TMP
//la fonction GetTempFile ne créer pas le fichier
end;