--- C:/Comps/jvcl/run/JvInterpreter.pas	Āņ ķī’ 23 15:00:23 2010
+++ C:/Users/U7/Documents/RAD Studio/Projects/JvInterpreter.pas	Āņ ķī’ 23 14:59:10 2010
@@ -5151,7 +5151,8 @@
     while True do
     begin
       case TTyp of
-        ttInteger, ttDouble, ttString, ttFalse, ttTrue, ttIdentifier:
+        //ZENsan 23.11.2010
+        ttInteger, ttDouble, ttFalse, ttTrue, ttIdentifier:
           begin
             Result := Token;
             if TTyp = ttIdentifier then
@@ -5166,6 +5167,19 @@
             if Prior(TTyp) < Prior(OpTyp) then
               Exit;
           end;
+        ttString:
+          begin
+            Result := '';
+            repeat
+              Result := Result + Token;
+              NextToken;
+              if TTyp in [ttInteger, ttDouble, ttFalse, ttTrue, ttIdentifier] then
+                JvInterpreterError(ieMissingOperator, PosEnd {!!});
+            until TTyp <> ttString;
+            if Prior(TTyp) < Prior(OpTyp) then
+              Exit;
+          end;
+        //ZENsan 23.11.2010
 
         // [peter schraut: added ttShl case on 2005/08/14]
         ttShl:
