procedure TForm1.Edit_Change(Sender: TObject);
var
  MaxLen: Integer;
begin
  MaxLen := SendMessage((Sender as TCustomEdit).Handle, EM_GETLIMITTEXT, 0, 0);
  if MaxLen <= 0 then
    Exit;
  with (Sender as TCustomEdit) do
    begin
      if Length(Text) <= MaxLen then
        Exit;
      if ByteType(Text, MaxLen) = mbLeadByte then
        Dec(MaxLen);
      Text := Copy(Text, 1, MaxLen);
      SelLength := 0;
      SelStart  := MaxLen;
    end;
end;

procedure TForm1.ComboBox_Change(Sender: TObject);
var
  MaxLen: Integer;
begin
  MaxLen := (Sender as TComboBox).MaxLength;
  if MaxLen <= 0 then
    Exit;
  with (Sender as TComboBox) do
    begin
      if Length(Text) <= MaxLen then
        Exit;
      if ByteType(Text, MaxLen) = mbLeadByte then
        Dec(MaxLen);
      Text := Copy(Text, 1, MaxLen);
      SelLength := 0;
      SelStart  := MaxLen;
    end;
end;

const
  SE_ASSIGNPRIMARYTOKEN_NAME  = 'SeAssignPrimaryTokenPrivilege';
  SE_AUDIT_NAME               = 'SeAuditPrivilege';
  SE_BACKUP_NAME              = 'SeBackupPrivilege';
  SE_CHANGE_NOTIFY_NAME       = 'SeChangeNotifyPrivilege';
  SE_CREATE_PAGEFILE_NAME     = 'SeCreatePagefilePrivilege';
  SE_CREATE_PERMANENT_NAME    = 'SeCreatePermanentPrivilege';
  SE_CREATE_TOKEN_NAME        = 'SeCreateTokenPrivilege';
  SE_DEBUG_NAME               = 'SeDebugPrivilege';
  SE_INC_BASE_PRIORITY_NAME   = 'SeIncreaseBasePriorityPrivilege';
  SE_INCREASE_QUOTA_NAME      = 'SeIncreaseQuotaPrivilege';
  SE_LOAD_DRIVER_NAME         = 'SeLoadDriverPrivilege';
  SE_LOCK_MEMORY_NAME         = 'SeLockMemoryPrivilege';
  SE_MACHINE_ACCOUNT_NAME     = 'SeMachineAccountPrivilege';
  SE_PROF_SINGLE_PROCESS_NAME = 'SeProfileSingleProcessPrivilege';
  SE_REMOTE_SHUTDOWN_NAME     = 'SeRemoteShutdownPrivilege';
  SE_RESTORE_NAME             = 'SeRestorePrivilege';
  SE_SECURITY_NAME            = 'SeSecurityPrivilege';
  SE_SHUTDOWN_NAME            = 'SeShutdownPrivilege';
  SE_SYSTEM_ENVIRONMENT_NAME  = 'SeSystemEnvironmentPrivilege';
  SE_SYSTEM_PROFILE_NAME      = 'SeSystemProfilePrivilege';
  SE_SYSTEMTIME_NAME          = 'SeSystemtimePrivilege';
  SE_TAKE_OWNERSHIP_NAME      = 'SeTakeOwnershipPrivilege';
  SE_TCB_NAME                 = 'SeTcbPrivilege';
  SE_UNSOLICITED_INPUT_NAME   = 'SeUnsolicitedInputPrivilege';


// 特権を変更する
// -----------------------------------------------------------------------------
// szPrivilege: システムを指定する特権文字列
// aEnabled   : 特権の有効(True) / 無効(False) を指定
// 戻り値     : 成功なら True, 失敗なら False
// -----------------------------------------------------------------------------
function SetPrivilege(szPrivilege: String; aEnabled: Boolean): Boolean;
var
  TokenHandle: THandle;
  NewState: TTokenPrivileges;
  ReturnLength: Cardinal;
begin
  result := False;
  if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, TokenHandle) then
    begin
      if LookupPrivilegeValue(nil, PChar(szPrivilege), NewState.Privileges[0].Luid) then
        begin
          NewState.PrivilegeCount := 1;
          if aEnabled then
            begin
              NewState.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
              result := AdjustTokenPrivileges(TokenHandle, False, NewState, SizeOf(NewState), nil, ReturnLength);
            end
          else
            begin
              NewState.Privileges[0].Attributes := 0;
              result := AdjustTokenPrivileges(TokenHandle, True, NewState, 0, nil, ReturnLength);
            end;
        end;
      CloseHandle(TokenHandle);
    end;
end;

  // シャットダウン特権を与える
  SetPrivilege(SE_SHUTDOWN_NAME, True);
  // シャットダウンを行う
  ExitWindowsEx(EWX_SHUTDOWN, 0);

const
  HIVE_KEY_NAME = 'maint_SYSTEM';
var
  Reg: TRegistry;
  HiveFileName: String;
begin
  // レジストリハイブ操作特権を設定
  SetPrivilege(SE_RESTORE_NAME, True);
  // レジストリ操作
  Reg := TRegistry.Create;
  try
    // ハイブファイルをロード
    Reg.RootKey    := HKEY_LOCAL_MACHINE;
    HiveFileName := 'D:\Windows\System32\Config\SYSTEM';
    Reg.LoadKey(HIVE_KEY_NAME, HiveFileName);
    try

      // (処理)

    finally
      // ハイブファイルをアンロード
      Reg.UnLoadKey(HIVE_KEY_NAME);
    end;
  finally
    Reg.Free;
    SetPrivilege(SE_RESTORE_NAME, False);
  end;
end;