Fix RomanYankovsky#134: Fails to parse code with ^\

Source/SimpleParser/SimpleParser.Lexer.pas

@@ -1861,13 +1861,17 @@ procedure TmwBasePasLex.PlusProc;
 end;
 
 procedure TmwBasePasLex.PointerSymbolProc;
+const
+  PointerChars = ['a'..'z', 'A'..'Z', '\', '!', '"', '#', '$', '%', '&', '''', '(', ')',
+                  '*', '+', ',', '-', '.', '/', ':', ';', '<', '=', '>', '?', '@', '[',
+                  ']', '^', '_', '`', '{', '|', '}', '~'];
 begin
   Inc(Run);
   FTokenID := ptPointerSymbol;
 
   //This is a wierd Pascal construct that rarely appears, but needs to be
   //supported. ^M is a valid char reference (#13, in this case)
-  if CharInSet(FOrigin[Run], ['a'..'z','A'..'Z']) and not IsIdentifiers(FOrigin[Run+1]) then
+  if CharInSet(FOrigin[Run], PointerChars) and not IsIdentifiers(FOrigin[Run+1]) then
   begin
     Inc(Run);
     FTokenID := ptAsciiChar;

Test/Snippets/pointerchars.pas

@@ -0,0 +1,25 @@
+unit pointerchars;
+
+interface
+
+implementation
+
+procedure FormKeyPress(Sender: TObject; var Key: Char);
+begin
+   if Key = ^\ then 
+   begin
+      //some code
+   end;
+
+   if Key = ^M then 
+   begin
+      //some code
+   end;
+
+   if Key = ^] then 
+   begin
+      //some code
+   end;
+end;
+
+end.