var C: Cardinal; begin C := $FFFFFFFF; ShowMessage(IntToStr(C));
var C: Cardinal; begin C := $FFFFFFFF; ShowMessage(IntToHex(C, 8)); end;