anchor.diff:      if SName='val' then
       begin
         if Ctl is TCheckBox then (Ctl as TCheckBox).Checked:= StrToBool(SValue);
  +      if Ctl is TRadioButton then (Ctl as TRadioButton).Checked:= StrToBool(SValue);
         if Ctl is TEdit then (Ctl as TEdit).Text:= SValue;
         if Ctl is TComboBox then (Ctl as TCombobox).ItemIndex:= StrToIntDef(SValue, 0);
         if Ctl is TListBox then (Ctl as TListBox).ItemIndex:= StrToIntDef(SValue, 0);
  
positive.code:     (C is TEdit) or
      (C is TComboBox) or
      (C is TCheckBox) or
      (C is TSpinEdit);
  end;
  
  
negative.code:     Result:= (C as TEdit).Text;
    if C is TCheckBox then
      Result:= IntToStr(Ord((C as TCheckBox).Checked));
    if C is TRadioButton then
      Result:= IntToStr(Ord((C as TRadioButton).Checked));
    if C is TComboBox then
      Result:= IntToStr((C as TComboBox).ItemIndex);
    if C is TListBox then
  