System.SetMinimumBlockAlignment(mba16Byte);

  TMyStr = record 
    WideByte : Boolean; // 2 байта ? Или 1
	StrByte : TArray<Byte>; // Массив байт
	LengthStr : NativeUInt; // Текущая длина
	MaxLengthStr : NativeUInt; // Максимальная длина, с учётом 16 или 8 
	Ref : Cardinal;
   end;

GetMem(P, SizeOf(StrRec) + (CharLength + 1) * SizeOf(WideChar));

PInteger(PByte(str) - SizeOf(Integer))^

    Writeln(PWord(PByte(str)
      - SizeOf(Integer)  {length}
      - SizeOf(Integer)  {refCnt}
      - SizeOf(Word)     {elemSize}
      - SizeOf(Word)     {codePage}
    )^);

  PStrRec = ^StrRec;
  StrRec = packed record
    _Padding: Integer; // Make 16 byte align for payload..
    codePage: Word;
    elemSize: Word;
    refCnt: Integer;
    length: Integer;
  end;