diff --git a/Base/JPL.Files.pas b/Base/JPL.Files.pas
index acfd55c..47946bb 100644
--- a/Base/JPL.Files.pas
+++ b/Base/JPL.Files.pas
@@ -41,6 +41,13 @@ interface
 
 type
 
+  TFileDates = record
+    Creation: TDateTime;
+    Modification: TDateTime;
+    Access: TDateTime;
+    procedure Clear;
+  end;
+
   TFileSystemItemType = (fsitFile, fsitDirectory, fsitUnknown);
 
   TFileNameRec = record
@@ -765,4 +772,15 @@ function TFileInfoRec.AsString: string;
 
 {$endregion TFileInfoRec}
 
+
+
+{ TFileDates }
+
+procedure TFileDates.Clear;
+begin
+  Creation := EMPTY_DATE;
+  Modification := EMPTY_DATE;
+  Access := EMPTY_DATE;
+end;
+
 end.