add 无符号整数移位 in delphi