anchor.diff:  function THtmlParser.GetTitle: ThtString;
   begin
     if TitleEnd > TitleStart then
  -    Result := Doc.GetString(TitleStart, TitleEnd)
  +    Result := ReplaceEntities(Doc.GetString(TitleStart, TitleEnd), Doc.CodePage)
     else
       Result := '';
   end;
  
positive.code:   end; {while}
  end;
  
  end.
  
  
negative.code:     property IsXHTML : Boolean read FIsXHTML write FIsXHTML;
    end;
  
  function IsWhiteSpace(Ch: ThtChar): Boolean; {$ifdef UseInline} inline; {$endif}
  function ReplaceEntities(const Str: ThtString; CodePage: Integer): ThtString;
  
  implementation
  
  uses
  