String parsing error

[parix3]

A string starting with a double apostrophe is incorrectly parsed. All such literals are truncated. For example "'bla-bla" bla-bla' The error is directly in the function TPasSyntaxTreeBuilder.DequoteString(const S: string): string;