* Fixed bug ID #33743 with provided patch. (erroneous exception in getbinarydata)

git-svn-id: trunk@39667 -

packages/fcl-registry/src/registry.pp

@@ -331,7 +331,7 @@ Var
 
 begin
   Result := GetData(Name, @Buffer, BufSize, RegDataType);
-  If (RegDataType<>rdBinary) Then
+  If not (RegDataType in [rdBinary, rdUnknown]) Then
     Raise ERegistryException.CreateFmt(SInvalidRegType, [Name]);
 end;