* Merging revisions r44480 from trunk:

    ------------------------------------------------------------------------
    r44480 | michael | 2020-04-01 09:39:14 +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@46656 -

packages/fcl-registry/src/registry.pp

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

packages/fcl-registry/src/winreg.inc

@@ -418,8 +418,6 @@ Function TRegistry.SysPutData(const Name: UnicodeString; Buffer: Pointer;
 
 Var
   RegDataType: DWORD;
-  B : Pchar;
-  S : String;
 
 begin
   RegDataType:=RegDataWords[RegData];