function THIRegistry.ReadValue;
var value:string;
begin
   dtNull(val);
   RootKey := _hkey[_prop_HKey];
   if not OpenKey(ReadString(_Data,_data_Key,_prop_Key),false,KEY_READ) then
    begin
     Result := 0;
     exit;
    end
   else Result := 1;
   value := ReadString(_Data,_data_Value,_prop_Value);

   case dtypes[_prop_DataType] of
    data_int :   dtInteger(val,ReadInt(Value,Result));
    data_str :   dtString(val,ReadStr(Value,Result));
    data_real:   dtReal(val,ReadFloat(Value,Result));
    data_stream: dtStream(val,_ReadStream(Value,Result));
   end;

   CloseKey;
end;