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:       // Update available options
        if AFirstLoading then begin
          if wDateStart > 0 then begin
            DatePickerStart.MinDate := DateOf(wDateStart);
            DatePickerStart.MaxDate := DateOf(wDateEnd);
            DatePickerStart.Date := DateOf(wDateStart);
            TimePickerStart.Time := TimeOf(wDateStart);
            DatePickerEnd.MinDate := DateOf(wDateStart);
            DatePickerEnd.MaxDate := DateOf(wDateEnd);
            DatePickerEnd.Date := DateOf(wDateEnd);
            TimePickerEnd.Time := TimeOf(wDateEnd);
          end;
  
negative.code: {*==============================================================================
  Replace special chars for HTML
  ===============================================================================}
  function TFormProgress.ReplaceHtmlSpecialChars(ALine: String): String;
  begin
    Result := ALine;
    if (Pos('>', ALine) > 0) or (Pos('<', ALine) > 0) then begin
  