anchor.diff:      destructor Destroy; override;
     published
       property Html: TStringList read FHtml write SetHtml;
  -    property TagType: string read FTagType write SetTagType;
  +    property TagType: string read FTagType write SetTagType stored IsTagTypeStored;
     end;
   
     TIWBSFile = class(TIWBSCustomControl)
  
positive.code:       AHTMLTag.AddStringParam('for', ForControl.HTMLName);
      end
    else
      AHTMLTag := TIWHTMLTag.CreateTag('span');
    AHTMLTag.AddStringParam('id', HTMLName);
    AHTMLTag.AddClassParam(ActiveCss);
    AHTMLTag.AddStringParam('style',ActiveStyle);
  
negative.code:     FForControl: TIWCustomControl;
      FRawText: boolean;
      FOldText: string;
      FTagType: string;
      function  RenderLabelText: string;
      procedure SetTagType(const Value: string);
      function IsTagTypeStored: Boolean;
    protected
      procedure CheckData(AContext: TIWCompContext); override;
      procedure InternalRenderAsync(const AHTMLName: string; AContext: TIWCompContext); override;
      procedure InternalRenderCss(var ACss: string); override;
      procedure InternalRenderHTML(const AHTMLName: string; AContext: TIWCompContext; var AHTMLTag: TIWHTMLTag); override;
      procedure SetForControl(const Value: TIWCustomControl);
    public
  