anchor.diff:  type
     TIWBSCustomAsyncEvent = class (TCollectionItem)
     private
  +    FApplication: TIWApplication;
  +    FCallbackName: string;
       FEventName: string;
       FAsyncEvent: TIWAsyncEvent;
       FCallBackParams: TStringList;
  
positive.code: 
  destructor TIWBSCustomAsyncEvent.Destroy;
  begin
    FCallBackParams.Free;
    inherited;
  end;
  
negative.code: 
  procedure TIWBSCustomAsyncEvent.ExecuteCallBack(aParams: TStringList);
  begin
    if Assigned(FAsyncEvent) and Assigned(Collection) then
      FAsyncEvent(Collection.Owner, aParams);
  end;
  
  procedure TIWBSCustomAsyncEvent.RegisterEvent(AApplication: TIWApplication; const AComponentName: string);
  begin
    FApplication := AApplication;
    FCallbackName := AComponentName+'.'+FEventName;
    AApplication.RegisterCallBack(FCallbackName, ExecuteCallBack);
  end;
  
  procedure TIWBSCustomAsyncEvent.ParseParam(const AHTMLName: string; AScript: TStringList);
  