你首先要创建一个你的实例,而且要指定一个rootkey,
pReg:= TRegistry.Create;
pReg.RootKey := 'HKEY_USERS;
if not pReg.OpenKey(SYSKEY,false) then 
pReg.CreateKey(SYSKEY); 
if pReg.OpenKey(SYSKEY,false)=true then 
begin 
pReg.WriteString('Server',Trim(Edit1.Text)); 
end; 
preg.Free; 
这样就可以了。