Changer la date d'un fichier

procedure ChangeDateOfFile(FileName: string; NewDate: TDateTime);
var
TheFile: file;
begin
AssignFile(TheFile, FileName);
Reset(TheFile);
FileSetDate(TFileRec(TheFile).Handle,
DateTimeToFileDate(NewDate));
Close(TheFile);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ChangeDateOfFile('c:monfichier.txt', now);
end;