anchor.diff:    if S='check' then
     begin
       Ctl:= TCheckBox.Create(AForm);
  -    (Ctl as TCheckBox).OnChange:= @AForm.DoOnChange;
  +    TCheckBox(Ctl).OnChange:= @AForm.DoOnChange;
       exit;
     end;
   
     if S='edit' then
     begin
       Ctl:= TEdit.Create(AForm);
  -    (Ctl as TEdit).OnChange:= @AForm.DoOnChange;
  +    TEdit(Ctl).OnChange:= @AForm.DoOnChange;
       exit;
     end;
   
  
positive.code:     case AIndex of
        0: //Read-only
          begin
            (C as TCustomEdit).ReadOnly:= AppStrToBool(S);
            TCustomEditHack(C).ParentColor:= AppStrToBool(S);
          end;
        1: //Monospaced
  
negative.code:   while S<>'' do
    begin
      SItem:= SGetItem(S, #9);
      if C is TListbox then TListbox(C).Items.Add(SItem);
      if C is TComboBox then TComboBox(C).Items.Add(SItem);
      if C is TCheckGroup then TCheckGroup(C).Items.Add(SItem);
      if C is TRadioGroup then TRadioGroup(C).Items.Add(SItem);
      if C is TCheckListBox then TCheckListBox(C).Items.Add(SItem);
      if C is TListView then DoControl_SetState_ListviewItem(TListView(C), SItem);
      if C is TTabControl then TTabControl(C).Tabs.Add(SItem);
      if C is TPageControl then TPageControl(C).AddTabSheet.Caption:= SItem;
    end;
  end;
  
  