Como crear un Directorio Virtual en el IIS con Delphi Win32

uses  *****, ActiveDs_TLB, *****;
 
 
function ADsGetObject(const PathName: WideString; const GUID:TGUID;
                      out I: IUnknown): HRESULT; stdcall;
 
var
  frmAddVirtualDir: TfrmAddVirtualDir;
 
implementation
 
{$R *.dfm}
 
 function ADsGetObject; external 'ActiveDS.dll' name 'ADsGetObject';

procedure TfrmAddVirtualDir.bbtOKClick(Sender: TObject);
var
 I: IADsContainer;
 ADs: IADs;
begin
  if Length(Trim(edtAlias.Text))=0 then begin
     Application.MessageBox('Alias no puede ser Vacio','Aviso');
     Exit;
  end;
  if Length(Trim(edtPath.Text))=0 then begin
     Application.MessageBox('Seleccione la Ruta del directorio Virtual',
                            'Aviso');
     Exit;
  end;
  if ADsGetObject('IIS://localhost', IID_IADsContainer, IUnknown(I)) = S_Ok then begin
      //IIS Ha sido instalado
     if ADsGetObject('IIS://localhost/w3svc', IID_IADsContainer, IUnknown(I)) = S_Ok then begin
        //Web Server existe
        ADs := IADs(I.GetObject('IIsWebServer', '1'));
        //Acceso a los servicios
        if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then begin
           //Servicios de Apoyo
           ADs := IADs(I.GetObject('IIsWebVirtualDir', 'Root'));
           //En el servidor Web para crear un directorio virtual en la raí­z
           if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then begin
           //Servicios de apoyo
              try
                ADs := IADs(I.Create('IIsWebVirtualDir', edtAlias.Text));
                //Crear un directorio virtual para el alias (edtAlias.Text)
              except
                Application.MessageBox('El alias ya existe, por favor, elija'+
                                       ' otro alias','Aviso');
                Exit;
              end; //try except
              ADs.Put('AccessRead', cbRead.Checked); //Establecer los parámetros
              ADs.Put('AccessWrite', cbWrite.Checked);
              ADs.put('AccessScript',cbScript.Checked);
              ADs.Put('AccessExecute',cbExecute.Checked);
              ADs.put('EnableDirBrowsing',cbBrowse.Checked);
              ADs.Put('Path', edtPath.text);
              ADs.Put('AppFriendlyName', edtAlias.text); 
              ADs.Put('DefaultDoc','Default.asp, Default.html, Default.htm, ndex.asp,'+
                      'Index.html, Index.htm, Home.asp, Home.Html, Home.htm');
              ADs.Put('EnableDefaultDoc',True);//Pueden abrir el archivo por defecto
              ADs.SetInfo; //Guardar parámetros
              Application.MessageBox('Directorio Virtual Creado','Felicidades');
           end;
        end;
     end;
  end else
        Application.MessageBox('IIS no está instalado en su ordenador o'+
                               ' usted no tiene acceso a IIS','Aviso');
end;

procedure TfrmAddVirtualDir.dlbIISChange(Sender: TObject);
begin
 edtPath.Text:=dlbIIS.Directory;
end;

procedure TfrmAddVirtualDir.FormShow(Sender: TObject);
begin
  edtPath.Text := dlbIIS.Directory;
end;
 
procedure TfrmAddVirtualDir.bbtCloseClick(Sender: TObject);
begin
  Close;
end;