delphi7中如何修改注册表键值？

http://www.delphi2007.net/DelphiAPI/html/delphi_20061130225610144.html

delphi7中如何修改注册表键值啊？ 详细点 最好有实例

procedure TClientMainForm.SaveUserSetup(IsKey: Boolean);

var

Reg: TRegistry;

i: Integer;

begin

Reg := TRegistry.Create;

try

if Reg.OpenKey(RegPath, False) then

begin

if IsKey then

begin

FPassWord := UseKeyForm.Edit1.Text;

FDialName := UseKeyForm.ComboBox1.Text;

FHtmlAddr := UseKeyForm.Edit3.Text;

Reg.WriteString('PassWord', PassWord);

Reg.WriteString('DialName', DialName);

Reg.WriteString('HtmlAddr', HtmlAddr);

end else

with ClientDataForm.UsersCDS do

begin

FUserCode := FieldByName('CODE').Value;

FUserName := FieldByName('NAME').Value;

i := Length(FUserName);

while (i > 0) and (FUserName[i] = #32) do

begin

FUserName[i] := #0;

Dec(i);

end;

FLine := FieldByName('LINE').Value;

FViewClass := FieldByName('VIEWCLASS').Value;

Reg.WriteString('UserCode', UserCode);

Reg.WriteString('UserName', UserName);

Reg.WriteString('ViewClass', ViewClass);

Reg.WriteString('ComputerName', ComputerName);

Reg.WriteString('Line', Line);

end;

end;

finally

Reg.Free;

end;

end;