تابعي براي كپي آخرين فايلهاي تغيير پيدا كرده

يه تابع ميخوام كه بتونم تمامي فايل هاي موجود در يك پوشه را بررسي كند و آن فايلي را كه آخرين بار ايجاد شده به مقصد تعريف شده كپي كند.

ممنون ميشم اگه كمكم كنيد

سلام

کد:

---

function GetFileDateTime(FileName: string): TDateTime;
var intFileAge: LongInt;
begin
  intFileAge := FileAge(FileName);
  if intFileAge = -1 then
    Result := 0
  else
    Result := FileDateToDateTime(intFileAge)
end;

---

و براي كپي فايل

کد:

---

CopyFile(pChar(FileNameSource),pChar(FileNameDestination),false);

---

مثاله زير هم بهتون كمك مي كنه

کد:

---

http://delphi.about.com/library/weekly/code/src110803.zip

---

موفق باشيد.

از راهنمايتون ممنونم ولي يه مشكل ديگه هم وجود داره :
من اسم فايل ها رو نمي دونم و فقط بايد اون فايل رو كه از همه جديدتر ساخته شده رو كپي كنم

اگه كمكم كنيد ممنون ميشم