var
Reg: Tregistry;
tapassword:string;
begin
reg := Tregistry.create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if not Reg.OpenKey('\Software\aaaaa', False) then
begin
reg.createkey('\Software\aaaaa');
Reg.OpenKey('\Software\aaaaa', False);
end;
Reg.WriteString('Address', baddress);
.............
reg.free;