* Merging revisions r44481 from trunk:

    ------------------------------------------------------------------------
    r44481 | michael | 2020-04-01 09:41:16 +0200 (Wed, 01 Apr 2020) | 1 line
    
    * Patch from Serge Anvarov to simplify ReadDate/ReadTime (bug ID 35105)
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46657 -

packages/fcl-registry/src/registry.pp

@@ -752,9 +752,7 @@ end;
 function TRegistry.ReadTime(const Name: UnicodeString): TDateTime;
 
 begin
-  Result:=Default(TDateTime);
-  ReadBinaryData(Name, Result, SizeOf(TDateTime));
-  Result:=Frac(Result);
+  Result:=Frac(ReadDateTime(Name));
 end;
 
 function TRegistry.ReadTime(const Name: String): TDateTime;