delphi中操作注册表出错了奇怪了

Question

用一个按据调用foxmail或者是outlook，仅仅是运行程序，而不是用shellapi来发邮件。思路是：从注册表中取默认的邮件程序，得到路径，然后用shellexecute进行，但在注册表操作中遇到了麻烦
代码如下：
var
 reg : TRegistry;
begin
  reg := Tregistry.Create ;
  try
  reg.RootKey := HKEY_CLASSES_ROOT ;
  reg.OpenKey ('\mailto\shell\open\command',true);
  Edit1.Text := reg.ReadString('默认'); 
  except
  edit1.Text := '未读到'
  end;
  Shellexecute(handle,nil,pchar(Edit1.text),nil,nil,sw_shownormal);
end;结果是edit1.txt被清空了。跟本没读到跟径。
为什么会这样？达达们快来帮忙啊

Answer 1

好像听说reg.ReadString是不认汉字的