Ajustando datas de arquivos

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;