送200分：怎样在注册表中的存入一些值，然后在去出来放到memo中，最好有代码

procedure TFormMain.WriteReg(RegF:string;Title:string);
var
  registerTemp : TRegistry;
  TcsKeyValue : String;
begin
  registerTemp := TRegistry.Create;
  registerTemp.RootKey := HKEY_LOCAL_MACHINE; //设置根键值为HKEY_LOCAL_MACHINE  if registerTemp.OpenKey('Software\期权管理',True) then
    begin
      registerTemp.WriteString(RegF,Title);
      registerTemp.CloseKey;
    end
  else
    begin
      ShowMessage('写入系统注册表数据错误，无法加载启动程序');
      registerTemp.Closekey;
      halt;
    end;
  registerTemp.Free;   
end;