+ patch by Sven Barth to add TDate and TTime to the system unit, resolves #15474

git-svn-id: trunk@14573 -

rtl/inc/systemh.inc

@@ -300,6 +300,8 @@ Type
   HRESULT             = type Longint;
 {$ifndef FPUNONE}
   TDateTime           = type Double;
+  TDate               = type TDateTime;
+  TTime               = type TDateTime;
 {$endif}
   TError               = type Longint;