Импорт настроек реестра

[DENIS_1992]

Привет всем. Мне необходимо импортировать и экспортировать настройки реестра.
Код импорта настроек:

procedure TForm1.Button1Click(Sender: TObject);
     var
         hToken: THandle;
         tkp: Token_Privileges;
         ReturnLength: Cardinal;
         hKeyToSave: HKEY;
         dw: cardinal;
      begin
       if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken) then
        begin
         LookupPrivilegeValue(nil,'SeBackupPrivilege', tkp.Privileges[0].Luid);
         tkp.PrivilegeCount:=1;

         tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
         AdjustTokenPrivileges(hToken, false, tkp, sizeof(TOKEN_PRIVILEGES), nil, ReturnLength);
        end;

       RegCreateKeyEx(HKEY_LOCAL_MACHINE,
                          'HARDWARE\ACPI',//ключ, который бэкапим
                          0,
                          nil,
                          REG_OPTION_BACKUP_RESTORE,
                          KEY_QUERY_VALUE,
                          nil,
                          hKeyToSave,
                          @dw);

       RegSaveKey(hKeyToSave,'Den.txt', nil);
       RegCloseKey(hKeyToSave);
      end;

При помощи этой процедуры создается текстовый файл Den.txt размером 20мб
Пол дела сделано, а вот код занесения настроек обратно в реестр:

procedure TForm1.Button2Click(Sender: TObject);
      var
         hToken: THandle;
         tkp: Token_Privileges;
         ReturnLength: Cardinal;
         hKeyToSave: HKEY;
         dw: cardinal;
      begin
       if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken) then
        begin
         LookupPrivilegeValue(nil,'SeRestorePrivilege', tkp.Privileges[0].Luid);
         tkp.PrivilegeCount:=1;

         tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
         AdjustTokenPrivileges(hToken, false, tkp, sizeof(TOKEN_PRIVILEGES), nil, ReturnLength);
         end;

       RegCreateKeyEx(HKEY_LOCAL_MACHINE,
                          'HARDWARE\ACPI',//ключ, который бэкапим
                          0,
                          nil,
                          REG_OPTION_BACKUP_RESTORE,
                          KEY_QUERY_VALUE,
                          nil,
                          hKeyToSave,
                          @dw);

       RegLoadKey(hKeyToSave,'DEN.txt', nil);
       RegCloseKey(hKeyToSave);
      end;

В результате выполнения в реестр заноситься только имя одного подкатолога и всё. Что я делаю неправильно???