anchor.diff:  var
     comparer : IComparer<T>;
     leftValue, rightValue : TValue;
  +  sLeft, sRight : string;
   begin
     comparer := TComparer<T>.Default;
     if comparer.Compare(right,left) = 0 then
  
positive.code:     else
      begin
        if leftValue.TryCast(pInfo,tInfo) then
          Fail(Format('left %s but got %s - %s', [leftValue.AsString, rightValue.AsString, message]), ReturnAddress)
        else
          Fail(Format('left is not equal to right - %s', [message]), ReturnAddress)
      end;
  
negative.code:     leftValue := TValue.From<T>(left);
      rightValue := TValue.From<T>(right);
  
      Fail(Format('left %s Not Equal To %s',[leftValue.ToString,rightValue.ToString]), ReturnAddress);
    end;
  end;
  {$ELSE}
  