type muint64 = record
  case boolean of
    true: (i64 : int64);
    false:(lo32,hi32: cardinal);
end;

现在你可以使用红衣主教用无符号数据填充你的uint64.

另一种选择是使用这样的代码：

const almostmaxint64 = $800000045000000; 
var muint64: int64;    
begin
   muint64:= almostmaxint64;
   muint64:= muint64 shl 1;
end