anchor.diff:      //-------type
       if SName='type' then
       begin
  -      if SValue='check' then begin Ctl:= TCheckBox.Create(AForm); end;
  -      if SValue='edit' then begin Ctl:= TEdit.Create(AForm); end;
  -      if SValue='listbox' then begin Ctl:= TListBox.Create(AForm); end;
  -      if SValue='spinedit' then begin Ctl:= TSpinEdit.Create(AForm) end;
  +      if SValue='check' then Ctl:= TCheckBox.Create(AForm);
  +      if SValue='radio' then Ctl:= TRadioButton.Create(AForm);
  +      if SValue='edit' then Ctl:= TEdit.Create(AForm);
  +      if SValue='listbox' then Ctl:= TListBox.Create(AForm);
  +      if SValue='spinedit' then Ctl:= TSpinEdit.Create(AForm);
         if SValue='memo' then
           begin
             Ctl:= TMemo.Create(AForm);
  
positive.code:     Result:= (C as TEdit).Text;
    if C is TCheckBox then
      Result:= IntToStr(Ord((C as TCheckBox).Checked));
    if C is TComboBox then
      Result:= IntToStr((C as TComboBox).ItemIndex);
    if C is TListBox then
  
negative.code:     (C is TEdit) or
      (C is TComboBox) or
      (C is TCheckBox) or
      (C is TRadioButton) or
      (C is TSpinEdit);
  end;
  
  