Borrar Clave Y Subclave Del Regedit De Windows

[cavdrz]

HOla como están, veran mi duda es que si alguién sabe como se puede eliminar desde delphi una rama del registro con varias subclaves (HKEY_LOCAL_MACHINE\SOTWARE\1\2\3), esto es lo que tengo, pero no me funciona cuando hay varias subclaves, solo si hay una si me la elimina:

Código Delphi [-]
function DeleteRegistryKey(const RootKey: HKEY; const Key: String): Boolean; 
var Handle : HKEY;     
K, N   : String; 
begin   
  SplitRegName(Key, K, N);   
  if RegOpenKeyEx(RootKey, PChar(K), 0, KEY_WRITE or KEY_WOW64_64KEY, Handle) = ERROR_SUCCESS then     
  begin       
    Result := RegDeleteKey(Handle, Pointer(N)) = ERROR_SUCCESS;       
    RegCloseKey(Handle);     
  end else     
    Result := False; 
end;

espero que me puedan ayudar, gracias.