Obtenir un nom de fichier unique

function GetUniqueFileName(const AFileName, AExt: string): string;
var iNum: integer;
sFileName: string;
begin
if FileExists(AFileName + AExt) then begin
iNum := 1;
sFileName := AFileName + '_' + inttostr(iNum);
while FileExists(AFileName + '_' + inttostr(iNum) + AExt) do
inc(iNum);

result := AFileName + '_' + inttostr(iNum) + AExt;
end //fileExists
else result := AFileName + AExt;
end;

//Exemple pour une image
//BMP.SaveToFile(GetUniqueFileName('c:\monimage', '.bmp'));