مشكل في إنشاء الرجستري بالدلفي

[Mohammed]

السلام عليكم
أنا أستعمل هذا الكود

كود :

procedure TForm1.Button1Click(Sender: TObject); var  reg:Tregistry; begin  reg := Tregistry.Create;  reg.RootKey := hkey_current_user; try  reg.OpenKey('\Software\Microsoft',true);  reg.WriteString('test',edit1.Text); except; end; end; procedure TForm1.Button2Click(Sender: TObject); begin close; end;

لكنه لايعمل معي ( الصورة) فلا يتم إنشاء الرجستر
رابط الصورة http://www.kuwaiti.co/ubw1fxfjfsvx

مع ملاحظة اني أستعمل ويندوز 7
وشكرا.