如何读写注册表

[My_first]

我做了一个from，　上面有一个名为user的edit1，一个名为password的edit2.

一个button写入按钮，　一人button的读出按钮，　两个label ,一个显示读出的
user,一个显示读出的password.

怎样把edit1和edit2的内容写入注册表，还有读出

[My_first]

user= cai
password = my

这两个键和值写入注册表。和读出来，该怎样做。

[票票飞扬]

uses Registry;


Button1Click(Sender: TObject);
var Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HEKY_LOCAL_MACHINE;
Reg.OpenKey('SoftWare\MyKey',True);
Reg.WriteString('User',edtUser.Text);
Reg.WriteString('Password',edtPassword.Text);
Reg.Free;
end;

Button2Click(Sender: TObject);
var Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HEKY_LOCAL_MACHINE;
Reg.OpenKey('SoftWare\MyKey',True);
lUser.Caption := Reg.ReadString('User');
lPassword.Caption := Reg.ReadString('Password');
Reg.Free;
end;

[My_first]

to genphone_ru(票票)

　如果该键已经存在，那再写一次会不会出错。　该怎样写呢？　谢谢你了

[My_first]

另外这个'SoftWare\MyKey'是不是随便写的

[票票飞扬]

重复写只是更新，键名是任意取的1

[My_first]

谢谢你，我试试

[My_first]

var Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HEKY_LOCAL_MACHINE; //运行到这里出错
Reg.OpenKey('SoftWare\MyKey',True);
Reg.WriteString('User',edtUser.Text);
Reg.WriteString('Password',edtPassword.Text);
Reg.Free;
end;