procedure THIRegistry._work_doEnumValues;
const
  KEY_WOW64_64KEY = $0100;
  
var hk:HKEY;
    List:PStrList;
    i:smallint;

  function RegKeyOpenRead( Key: HKey; const SubKey: String ): HKey;
  begin
    if RegOpenKeyEx( Key, PChar( SubKey ), 0, KEY_READ or KEY_WOW64_64KEY, Result ) <> ERROR_SUCCESS then
       Result := 0;
  end;

begin
   FStopEnum := false;
//   hk := kol.RegKeyOpenRead(_hkey[_prop_HKey],ReadString(_Data,_data_Key,_prop_Key));
   hk := RegKeyOpenRead(_hkey[_prop_HKey],ReadString(_Data,_data_Key,_prop_Key));   
   List := NewStrList;
   kol.RegKeyGetValueNames(hk,List);
   for i := 0 to List.Count-1 do
   begin
    _hi_OnEvent(_event_onEnumValue, List.Items[i]);
    if FStopEnum then break;
   end;
   List.Free;
   kol.RegKeyClose(hk);
end;