* fix #41091: apply patch by @yoozaa80 to use the length of the WideString instead of the single-/multibyte encoded string

packages/fcl-res/src/versionresource.pp

@@ -466,7 +466,7 @@ var block : TVerBlockHeader;
 begin
   before:=RawData.Position;
   block.length:=0;
-  block.vallength:=length(aValue)+1;
+  block.vallength:=length(WideString(aValue))+1;
   block.valtype:=1;
   block.key:=aKey;
   {$IFDEF ENDIAN_BIG}