function run() {

  if( !sys.extelement( "delphi", "RegExpr" ) ){

    sys.addelement( "delphi", "RegExpr", "Regular Expressions", "Strings" );

  } else {

    var vbYesNo=4, vbQuestion=32, vbInformation=64, vbYes=6, vbOkOnly=0; 

    var Res;

    WshShell = new ActiveXObject("WScript.Shell");

    Res = WshShell.Popup( "Overwrite old element?",0,"Question",vbQuestion+vbYesNo );

    if( Res == vbYes ){

       sys.delelement( "delphi", "RegExpr" );

       sys.addelement( "delphi", "RegExpr", "Regular Expressions", "Strings" );

    }

  }

}