anchor.diff:  begin
     if C is TCheckBox then
     begin
  -    DoControl_SetState_Checkbox(C as TCheckbox, S);
  +    DoControl_SetState_Checkbox(TCheckbox(C), S);
       exit
     end;
     if C is TToggleBox then
     begin
  -    (C as TToggleBox).Checked:= AppStrToBool(S);
  +    TToggleBox(C).Checked:= AppStrToBool(S);
       exit
     end;
     if C is TRadioButton then
     begin
  -    (C as TRadioButton).Checked:= AppStrToBool(S);
  +    TRadioButton(C).Checked:= AppStrToBool(S);
       exit
     end;
     if C is TEdit then
     begin
  -    (C as TEdit).Text:= S;
  +    TEdit(C).Text:= S;
       exit
     end;
     if C is TComboBox then
     begin
  -    DoControl_SetState_Combobox(C as TCombobox, S);
  +    DoControl_SetState_Combobox(TCombobox(C), S);
       exit
     end;
     if C is TListBox then
     begin
  -    DoControl_SetState_Listbox(C as TListbox, S);
  +    DoControl_SetState_Listbox(TListbox(C), S);
       exit
     end;
     if C is TRadioGroup then
     begin
  -    DoControl_SetState_RadioGroup(C as TRadioGroup, S);
  +    DoControl_SetState_RadioGroup(TRadioGroup(C), S);
       exit
     end;
     if C is TCheckGroup then
     begin
  -    DoControl_SetState_CheckGroup(C as TCheckGroup, S);
  +    DoControl_SetState_CheckGroup(TCheckGroup(C), S);
       exit
     end;
     if C is TCheckListBox then
     begin
  -    DoControl_SetState_CheckListbox(C as TCheckListBox, S);
  +    DoControl_SetState_CheckListbox(TCheckListBox(C), S);
       exit
     end;
     if C is TMemo then
     begin
  -    DoControl_SetState_Memo(C as TMemo, S);
  +    DoControl_SetState_Memo(TMemo(C), S);
       exit
     end;
     if C is TSpinEdit then
     begin
  -    DoControl_SetState_SpinEdit(C as TSpinEdit, S);
  +    DoControl_SetState_SpinEdit(TSpinEdit(C), S);
       exit
     end;
     if C is TListView then
     begin
  -    DoControl_SetState_Listview(C as TListView, S);
  +    DoControl_SetState_Listview(TListView(C), S);
       exit
     end;
     if C is TTabControl then
     begin
  -    DoControl_SetState_TabControl(C as TTabControl, S);
  +    DoControl_SetState_TabControl(TTabControl(C), S);
       exit
     end;
     if C is TPageControl then
     begin
  -    DoControl_SetState_PageControl(C as TPageControl, S);
  +    DoControl_SetState_PageControl(TPageControl(C), S);
       exit
     end;
     if C is TTrackBar then
     begin
  -    (C as TTrackBar).Position:= StrToIntDef(S, 0);
  +    TTrackBar(C).Position:= StrToIntDef(S, 0);
       exit
     end;
     if C is TProgressBar then
     begin
  -    (C as TProgressBar).Position:= StrToIntDef(S, 0);
  +    TProgressBar(C).Position:= StrToIntDef(S, 0);
       exit
     end;
     if C is TATGauge then
     begin
  -    (C as TATGauge).Progress:= StrToIntDef(S, 0);
  +    TATGauge(C).Progress:= StrToIntDef(S, 0);
       exit
     end;
     if C is TListFilterEdit then
     begin
  -    (C as TListFilterEdit).Text:= S;
  +    TListFilterEdit(C).Text:= S;
       exit
     end;
     if C is TListViewFilterEdit then
     begin
  -    (C as TListViewFilterEdit).Text:= S;
  +    TListViewFilterEdit(C).Text:= S;
       exit
     end;
   end;
  
positive.code:       0:
          begin
            if AppStrToBool(S) then
              (C as TTabControl).TabPosition:= tpBottom;
          end;
      end;
      exit
  
negative.code: begin
    if C.Enabled and C.Visible then
      if C is TWinControl then
        F.ActiveControl:= TWinControl(C);
  end;
  
  procedure DoForm_ScaleAuto(F: TForm);
  