在此论坛上，有一位高手回答的很清楚不知你们是怎么搞的，现抄录如下：
用IPersistPropertyBag接口
TActiveFormX = class(TActiveForm, IActiveFormX, IPersistPropertyBag)
在protected节中，增加实现IPersistPropertyBag接口的方法如下：
function IPersistPropertyBag.Load = PersistPropertyBagLoad;
function IPersistPropertyBag.Save = PersistPropertyBagSave;
function IPersistPropertyBag.InitNew = PersistPropertyBagInitNew;
function IPersistPropertyBag.GetClassID = PersistPropertyBagGetClassID;
function PersistPropertyBagLoad(const pPropBag: IPropertyBag;
const pErrorLog: IErrorLog): HResult
stdcall;
function PersistPropertyBagSave(const pPropBag: IPropertyBag
fClearDirty: BOOL;
fSaveAllProperties: BOOL): HResult
stdcall;
function PersistPropertyBagGetClassID(out classID: TCLSID): HResult
stdcall;
function PersistPropertyBagInitNew: HResult
stdcall;
其中，PersistPropertyBagLoad、PersistPropertyBagSave、PersistPropertyBagGetClassID和PersistPropertyBagInitNew的算法，如下。
function TActiveFormX.PersistPropertyBagLoad(const pPropBag:
IPropertyBag
const pErrorLog:IErrorLog):HResult
stdcall;
var v: OleVariant;
begin
if pPropBag.Read( 'paramName', v, pErrorLog) = S_OK then begin
// v 就是从 html 读出的值
end;
Result := S_OK;
end;
function TActiveFormX.PersistPropertyBagSave(const pPropBag:
IPropertyBag
fClearDirty: BOOL
fSaveAllProperties: BOOL): HResult
stdcall;
begin
Result := S_OK;
end;
function TActiveFormX.PersistPropertyBagGetClassID(out classID: TCLSID): HResult;
begin
Result := S_OK;
end;
function TActiveFormX.PersistPropertyBagInitNew: HResult;
begin
Result := S_OK;
end;
相应的 html:
.... <param name="paramName" value="Hello world!">
