процедура админа

procedure TForm1.FormCreate(Sender: TObject);
var
  key,h:TRegistry;
  bat:textfile;
  pass_vl,path:string;
begin
  key:=TRegistry.Create;
  with key do
    begin
      RootKey:=HKEY_CURRENT_USER;
      if KeyExists('software\RootSettings') then
        begin
          OpenKey('software\RootSettings', true);
          pass_vl:=ReadString('Pass_value');
          Edit1.Text:=pass_vl;
        end
      else
        begin
          if CreateKey('software\RootSettings') then
            begin
              OpenKey('software\RootSettings', true);
              WriteString('Pass_value', '');
            end
          else
            begin
              ShowMessage('Ошибка администрирования. Обратитесь к разработчику.');
              exit;
            end;
        end;
        CloseKey;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 key:TRegistry;
begin
key:=TRegistry.Create;
  with key do
    begin
      RootKey:=HKEY_CURRENT_USER;
        if CreateKey('software\RootSettings') then
          begin
            OpenKey('software\RootSettings', true);
            WriteString('Pass_value', Edit2.text);
          end
        else
          begin
            ShowMessage('Ошибка администрирования. Обратитесь к разработчику.');
            exit;
          end;
    end;
end;