ParHTML.pas(1941): E2052 Unterminated string

VCL TMS VCL UI Pack
1

Dear Dir

It seems many Unterminated string in ParHTML.pas
like  DrawText(Canvas.Handle,'?,1,cr,0)
      if TagReplacestring('§','?,s) then Foundtag := True;
      if TagReplacestring('‰','?',s) then Foundtag := True;
      if TagReplacestring('®','?,s) then Foundtag := True;
      if TagReplacestring('©','?,s) then Foundtag := True;
      if TagReplacestring('¶','?,s) then Foundtag := True;
      if TagReplacestring('™','?,s) then Foundtag := True;
 
Could  you Check these error  for me ?
Li