1   
2   //this code demostrates how to set the modify date and time of any given file
3   
4   procedure SetFileDate (TheFileName: string; aDate: string);
5   var
6     f : integer;
7   begin
8    //opens file
9     f := FileOpen (TheFileName, fmOpenReadWrite);
10    try
11     //sets date to file
12      FileSetDate (f, DateTimeToFileDate ((StrToDateTime (aDate))));
13    finally
14      FileClose (f)
15    end
16  end;
17  
18  procedure TForm1.Button1Click(Sender: TObject);
19  begin
20   SetFileDate('c:\test.txt','12/12/2002 11:00 am');
21  end;