Функция, которая устанавливает дату одного файла, равную дате другого файла

procedure CopyFileDate(const Source, Dest: String);
var
  SourceHand, DestHand: word;
begin
  SourceHand := FileOpen(Source, fmOutput);       { открываем исходный файл }
  DestHand := FileOpen(Dest, fmInput);            { открываем целевой файл }
  FileSetDate(DestHand, FileGetDate(SourceHand)); { получаем/устанавливаем дату }
  FileClose(SourceHand);                          { закрываем исходный файл }
  FileClose(DestHand);                            { закрываем целевой файл }
end;