#pas
Procedure THiAsmClass.doEnableDebugPrivNT;
  var Result: integer;
  begin
    Result := EnableDebugPrivNT('SeDebugPrivilege');
    _hi_OnEvent(onEnableDebugPrivNT, Result);
  end;
// end. -- это не нужно делать