Exibindo ou comparando data de arquivos

Procedure TForm1.Button1
var
TheFileDate: string;
Fhandle: integer;
begin
FHandle := FileOpen(YourFileName, 0);
try
TheFileDate := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;