diff --git a/lcl/lresources.pp b/lcl/lresources.pp
index 0928d53c63..80056ba22d 100644
--- a/lcl/lresources.pp
+++ b/lcl/lresources.pp
@@ -1166,9 +1166,10 @@ procedure LRSObjectBinaryToText(Input, Output: TStream);
             NewInString := False;
             NewStr := '#' + IntToStr(Ord(s[i]));
           end;
-        '''':
-            if InString then NewStr := ''''''
-            else NewStr := '''''''';
+        '''': begin
+            NewInString := True;
+            NewStr:='''''';
+          end;
         else begin
           NewInString := True;
           NewStr := s[i];