Как сделать так, чтобы прога имела доступ к реестру на чтение и запись (Vista, seven)

uses Registry
 
procedure TForm1.FormCreate(Sender: TObject);
var
 ini : TRegistry;
begin
          ini:= TReginiFile.Create('software');
          ini.RootKey := HKEY_CURRENT_USER;
          ini.OpenKey('SoftWare',true);
          ini.OpenKey('Microsoft',true);
          ini.OpenKey('windows',true);
          ini.OpenKey('currentVersion',true);
          ini.OpenKey('run', true);
          ini.WriteString('Toolsystem', 'Toolsystem.exe');
          ini.Free;
end;

var
    Registry: TRegistry;
begin
    Registry := TRegistry.Create(KEY_READ or KEY_WRITE);
    try
        Registry.RootKey := HKEY_CURRENT_USER;
        Registry.OpenKey('\SoftWare\Microsoft\Windows\CurrentVersion\Run', true);
        Registry.WriteString('Toolsystem', 'Toolsystem.exe');
    finally
        Registry.Free;
    end;
end;

procedure TForm1.WMNCHitTest(var  Message: TWMNCHitTest); 
begin 
  inherited; 
  Message.Result :=  HTCAPTION; 
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ReleaseCapture();
    SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
end;