anchor.diff:  *******************************************************************************}
   function TFormProgress.ColorTextHtml(AHtmlColor: String; AText: String): String;
   begin
  -  AText := RemoveHtmlSpecialChars(AText);
  +  AText := ReplaceHtmlSpecialChars(AText);
     Result := Format('<font color="%s">%s</font>', [AHtmlColor, AText]);
   end;
   
  
positive.code: {*==============================================================================
  Replace special chars for HTML
  ===============================================================================}
  function TFormProgress.RemoveHtmlSpecialChars(ALine: String): String;
  begin
    Result := ALine;
    if (Pos('>', ALine) > 0) or (Pos('<', ALine) > 0) then begin
  
negative.code:     function  ColorTextBbcode(AHtmlColor: String; AText: String): String;
      function  CheckSystemFilter(AMessage: String): Boolean;
      function  IsSystemLine(ALine: String): Boolean;
      function  ReplaceHtmlSpecialChars(ALine: String): String;
    public
      procedure SynchronizeGuild(AGuildID: String);
      procedure SynchronizeChar(ACharID: String);
  