delphi

procedure TForm1.Button1Click(Sender: TObject);
    var
    reg:Tregistry;
begin
    reg:=TRegistry.Create;    // инициализация
    try // начинаем ловить исключение начало исходника
        reg.RootKey := HKEY_LOCAL_MACHINE;        // влезаем  корень реестра
        reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies', true); // открываем ветку реестра
        reg.WriteInteger('NoDriveTypeAutoRun', 16895);
        showmessage ('Все прекрасно!');
  except // здесь нужно поймать исключение
        //Общий тип исключений Exception может использоваться для захвата всех типов исключений.
        on Exception do {showmessage('Невозможно добавить параметр')} // обработать его с выводом ошибки о невозможности добавления параметра
        begin
            showmessage ('В доступе отказано. Отключите антивирус или запустите программу с правами администратора');
            reg.CloseKey; // Закрыли и освободили и идём дальше
            FreeAndNil(reg);
    end;
    end;
    reg.CloseKey; // Закрыли и освободили и идём дальше
    FreeAndNil(reg);
end;