ساختن فایل تاریخچه (~Shistory )

سلام
دوستان من در برنامه پردازش تصویر کار می کنم بخشی از کارم را با کامپوننت ImageEN انجام میدم می خواهم اخرین تغییرات من بر اساس کاری که انجام میدم مثل خو دلفی بکاپ History ایجاد کند و از فایل در یک پوشه بر اساس شماره فایل جدید تولیر کند
1 - روش شماره گذاری این کار جطور است
2 - بنظرتان اگر نام فایل را بر اساس تاریخ و ساعت ایجادکنم بهتر است؟
لطفا به تصویر پیوستی دقت کنید میخوام روش این نوع شماره گذاری را بدانم

Function CreateNewFile(FileFormat:string):String;overload;
Var
I:integer;
begin
i := 0;
while FileExists(Format('%s~%.04d~'+FileFormat,['D:\BOOK\',i])) do inc(i);
Result := Format('%s~%.04d~'+FileFormat,['D:\BOOK\,i]);
End;