diff --git a/packages/fcl-base/src/fileinfo.pp b/packages/fcl-base/src/fileinfo.pp index 7945fb3332..72edca1ee6 100644 --- a/packages/fcl-base/src/fileinfo.pp +++ b/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);