[Alegun]

Ну если ничего не записалось\удалилось из-за недостатка привилегий, вот об этом и можно предупредить, примерно так

Код:

function IsPriv: boolean;
var
 hnd: THandle;
 tki: PTokenPrivileges;
 rln: cardinal;
begin
 GetMem(tki, 800);
 OpenProcessToken(GetCurrentProcess(),$0020 or $0008,hnd);
 GetTokenInformation(hnd, TokenPrivileges, tki, 800, rln);
 Result:= tki.PrivilegeCount > 5;
 FreeMem(tki);
end;

и дальше в коде

Код:

...
 if IsPriv then
  begin 
    if CheckKey.ValueExists('Scancode Map') then
          ShowMessage('Блокировка выполнена успешно!')
        else
          ShowMessage('Параметр блокировки отсутствует или удален!');
   end else
     ShowMessage('Недостаточно прав для выполнения!');