Active接收参数问题(100)

==================================HTML============================================== <OBJECT  id=ufo name=ufo  classid='clsid:A048A6FA-BB97-4C4A-8D19-CA567A26AFE5'> <PARAM  NAME="passparam"  VALUE="asdasdad"> </OBJECT> ==================================ActiveX=========================================== function TActiveFormX.Get_passstring: OleVariant;
begin
   result := passparam;
end;

procedure TActiveFormX.Set_passstring(Value: OleVariant);
begin
   passparam := String(Value);
end;

procedure TActiveFormX.Button1Click(Sender: TObject);
begin
   showMessage(passparam);
end;

=================================================================================== 结果passparam没有值!!!!!!!!!