// Change timestamp of specified file
PROCEDURE AlterFileTimeStamp(CONST filename: STRING; CONST stamp: TDateTime);
  VAR FileHandle: INTEGER;
BEGIN
  TRY
    FileHandle := FileOpen(filename, fmOpenWrite OR fmShareDenyNone);
    IF FileHandle > 0
    THEN BEGIN
      FileSetDate(FileHandle, DateTimeToFileDate(stamp));
      FileClose (FileHandle)
    END
  EXCEPT
  // Ignore errors
  END
END {AlterFileTimeStamp};