type TDescriptor = record SegmentLimit: Word; BaseAddressL: Word; BaseAddressH: Byte; FlagsL: Byte; FlagsH: Byte; BaseAddressU: Byte; end;