anchor.diff:  begin
     Len := Length(Value) * 2;
     SetLength(Result, Len);
  -  Move(Value[1], Result[0], Len);
  +  if Len > 0 then Move(Value[1], Result[0], Len);
   end;
   
   {$ENDIF}
  
positive.code:   if Assigned(Bytes) then begin
      Len := Length(Bytes);
      SetLength(Result, Len);
      Move(Bytes[0], Result[1], Len);
    end
    else
      Result := '';
  
negative.code: function BytesOf(const Val: Pointer; const Len: integer): TBytes;
  begin
    SetLength(Result, Len);
    if Len > 0 then Move(PByte(Val)^, Result[0], Len);
  end;
  {$ENDIF}
  
  