* Enable multiline strings in delphi mode

packages/fcl-passrc/src/pscanner.pp

@@ -1272,7 +1272,7 @@ const
      msOut,msDefaultPara,msDuplicateNames,msHintDirective,
      msProperty,msDefaultInline,msExcept,msAdvancedRecords,msTypeHelpers,
      msPrefixedAttributes,msArrayOperators,msImplicitFunctionSpec,
-     msFunctionReferences,msAnonymousFunctions
+     msFunctionReferences,msAnonymousFunctions,msDelphiMultiLineStrings
      ];
 
   DelphiUnicodeModeSwitches = delphimodeswitches + [msSystemCodePage,msDefaultUnicodestring];

packages/fcl-passrc/tests/tcscanner.pas

@@ -147,6 +147,7 @@ type
     procedure TestDelphiMultiLineTrailingGarbage2;
     procedure TestDelphiMultiLineTrailingGarbage3;
     procedure TestDelphiMultiLineEmbeddedQuotes;
+    procedure TestDelphiMultiLineInDelphiMode;
     Procedure TestTextBlockDirective;
     procedure TestNumber;
     procedure TestChar;
@@ -1041,6 +1042,21 @@ begin
   AssertEquals('Correct string',SingleQuote+S1+sLineBreak+S2+sLineBreak+S3+SingleQuote,TestTokenString);
 end;
 
+procedure TTestScanner.TestDelphiMultiLineInDelphiMode;
+
+  var
+    S1,S2 : String;
+
+  begin
+    S1:='Line 1';
+    S2:='Line 2';
+    FMultiLine:='{$mode delphi}'+sLineBreak+CreateDelphiMultiLine([S1,S2]);
+    TestTokens([pscanner.tkComment, pscanner.tkLineEnding,pscanner.tkWhitespace,pscanner.tkString],FMultiLine);
+
+    AssertEquals('Correct string',SingleQuote+S1+sLineBreak+S2+SingleQuote,TestTokenString);
+
+end;
+
 
 procedure TTestScanner.TestDelphiMultiLine;