请教：如何取注册表中（默认）项的值(50分)

请教：如何取注册表中（默认）项的值

readstring(''); // 空即为（默认）项

全做灌水，不要分，只是最近比较忙，没有时间来，既然来了，就好好的贡献一些。[]
写注册表默认值
procedure Write_Default_Key(Key, Value: string);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey(Key, True) then
Reg.WriteString('', Value);
finally
Reg.CloseKey;
Reg.Free;
end;
end;

删除注册表默认值
procedure Delete_Default_Key(Key, Value: string);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey(Key, True) then
Reg.DeleteValue('');
finally
Reg.CloseKey;
Reg.Free;
end;
end;

wql老兄的方法很对的，我最近刚解决！

谢谢各位指教！