anchor.diff:    var lElements := elements;
     if &type = typeOf(String) then begin
       for i: Integer := 0 to count -1 do begin
  -      lTmp[i] := MZString.NSStringwithMonoInstance(lElements[i]);
  +      lTmp[i] := MZString.NSStringwithMonoInstance(^MonoString(lElements[i]));
       end;
     end else begin
       for i: Integer := 0 to count -1 do begin
  
positive.code:   var lItem := elements[aIndex];
    if lItem = nil then exit nil;
    if &type = typeOf(NSString)  then begin
      exit MZString.NSStringwithMonoInstance(lItem);
    end;
    var lTmp := &type.alloc();
    exit id(lTmp).initWithMonoInstance(lItem);
  
negative.code:   exit Foundation.NSString.stringWithCharacters(^unichar(mono_string_chars(^MonoString(instance)))) length(mono_string_length(^MonoString(instance)));
  end;
  
  class method MZString.NSStringwithMonoInstance(s: ^MonoString): NSString;
  begin
    if s = nil then exit nil;
    exit Foundation.NSString.stringWithCharacters(^unichar(mono_string_chars(^MonoString(s)))) length(mono_string_length(^MonoString(s)));
  