Warum ist bei dem negativen Integer das erste Bit 0?

[Olli73]

So scheint es zu gehen:

function BitAtPos(BitPos: Byte): NativeUInt;