procedure TForm1.Button2Click(Sender: TObject);
var
  i:tregistry;
begin
  try
    i:=tregistry.Create;
    i.RootKey:=HKEY_CURRENT_CONFIG;
    if i.OpenKey('xiaoqiao',true) then
    begin
      i.WriteString('qiao','My Delphi project');       //写入一个字符串型的数据
      showmessage('Yes');
      i.CloseKey;
      i.Free;
    end;
  except
    showmessage('No');
  end;
end;
//delphi/5071