anchor.diff:              begin
                 C.Font.Color:= _ContrastColor(NColor);
                 C.Brush.Color:= NColor;
  -              C.TextOut(X1, AY, Copy(AStr, i, NLen));
  +              CanvasTextOutSimplest(C, X1, AY, Copy(AStr, i, NLen));
               end
               else
               begin
  
positive.code: 
  function _ContrastColor(AColor: TColor): TColor;
  const
    cValue: array[boolean] of TColor = ($E0E0E0, $101010);
  var
    bLight: boolean;
  begin
  
negative.code:           begin
              C.Font.Color:= _ContrastColor(NColor);
              C.Brush.Color:= NColor;
              CanvasTextOutSimplest(C, X1, AY, Copy(AStr, i, NLen));
            end
            else
            begin
  