//Not直接实现十六进制取反
var
  I, J : word;
begin
  I := $96E5;
  J := Not I;
  ShowMessage(Format(‘%x‘,[J]));
end;