Fix for Mantis #23765 .

packages/fcl-base/src/fileinfo.pp, TVersionInfo.Load:
  * use PWideChar instead of PChar if "UNICODE" is defined (e.g. on WinCE)

git-svn-id: trunk@23528 -

packages/fcl-base/src/fileinfo.pp

@@ -202,7 +202,7 @@ var
   Stream: TResourceStream;
 begin
   FreeResources;
-  Stream := TResourceStream.CreateFromID(Instance, 1, PChar(RT_VERSION));
+  Stream := TResourceStream.CreateFromID(Instance, 1, {$ifdef UNICODE}PWideChar{$else}PChar{$endif}(RT_VERSION));
   try
     FVersionInfo:=TVersionResource.Create;
     FVersionInfo.SetCustomRawDataStream(Stream);