关于做上传到ftp的activx组件的问题.

建立一个ActiveForm和一个Form1,在activform创建了一个方法: procedure ShowForm; safecall;
代码如下:
      if(form1=nil)   then
      form1   :=   TForm1.Create(self);
      form1.Show;
在form1中创建的时候代码如下: //用来连接ftp的
  try
    IdFTP1.Username :='chenb';
    IdFTP1.Password :='4993430';
    IdFTP1.Host :='10.195.0.70';
    IdFTP1.Connect;
  except
    ShowMessage('FTP Connect Fail!');
  end;
有个按纽SpeedButton1,代码如下: //用来上传文档.
  if IDFTP1.Connected then
  begin
    try
      IdFTP1.Put('C:\temp\cb.doc','cb.doc',True);
      IdFTP1.Put('C:\temp\cb.utc','cb.utc',True);
    except
    end;
  end
  else
    ShowMessage('没有连接到FTP服务器.');
然后在html中写到:
 <html>   
    
  <head>   
  <meta   http-equiv="Content-Type"   content="text/html;   charset=gb2312">   
  <title>新建网页   1</title>   
  </head>   
    
  <body>   
    
  <p>   
  <object classid="A5B6531D-D9E3-445C-92F0-E9A1421EDFBA"   id="ActiveFormX1">   
  <param   name="Visible"   value="0">   
  <param   name="AutoScroll"   value="0">   
  <param   name="AutoSize"   value="0">   
  <param   name="AxBorderStyle"   value="1">   
  <param   name="Caption"   value="ActiveFormX">   
  <param   name="Color"   value="4278190095">   
  <param   name="Font"   value="MS   Sans   Serif">   
  <param   name="KeyPreview"   value="0">   
  <param   name="PixelsPerInch"   value="96">   
  <param   name="PrintScale"   value="1">   
  <param   name="Scaled"   value="-1">   
  <param   name="DropTarget"   value="0">   
  <param   name="HelpFile"   value>   
  <param   name="ScreenSnap"   value="0">   
  <param   name="SnapBuffer"   value="10">   
  <param   name="DoubleBuffered"   value="0">   
  <param   name="Enabled"   value="-1">   
  </object>   
  </p>   
    
  <button   onclick="javascript:ActiveFormX1.ShowForm()">TEST</button>   
    
  </body>   
    
  </html>  
-----------------------------
为什么执行不了呢?