diff --git a/lcl/lresources.pp b/lcl/lresources.pp
index a2311397f4..5cd9952c8b 100644
--- a/lcl/lresources.pp
+++ b/lcl/lresources.pp
@@ -2681,13 +2681,6 @@ var
       Output.Write(s[1], Length(s));
   end;
 
-  procedure WriteWideString(const s: WideString);
-  begin
-    WriteLRSInteger(Output,Length(s));
-    if Length(s) > 0 then
-      Output.Write(s[1], Length(s)*2);
-  end;
-
   procedure WriteInteger(value: LongInt);
   begin
     if (value >= -128) and (value <= 127) then begin
@@ -2792,7 +2785,7 @@ var
           WriteLRSExtended(Output,flt);
           ParserNextToken;
         end;
-      toString:
+      toString,toWString:
         begin
           toStringBuf := parser.TokenString;
           //DebugLn(['ProcessValue toStringBuf="',toStringBuf,'" ',dbgstr(toStringBuf)]);
@@ -2813,20 +2806,6 @@ var
             WriteLongString(toStringBuf);
           end;
         end;
-      toWString:
-        begin
-          toStringBuf := parser.TokenString;
-          //DebugLn(['ProcessValue toStringBuf="',toStringBuf,'" ',dbgstr(toStringBuf)]);
-          while ParserNextToken = '+' do
-          begin
-            ParserNextToken;   // Get next string fragment
-            if not (parser.Token in [toString,toWString]) then
-              parser.CheckToken(toString);
-            toStringBuf := toStringBuf + parser.TokenString;
-          end;
-          Output.WriteByte(Ord(vaWString));
-          WriteWideString(UTF8Decode(toStringBuf));
-        end;
       toSymbol:
         begin
           if CompareText(parser.TokenString, 'True') = 0 then