TQBits 是用于方便设置标志位的一个实现，它实现对特定位的存取，以节省存贮空间。 TQBits = record private FBits: TBytes; function GetSize: Integer; procedure SetSize(const Value: Integer); function G