anchor.diff:          else
             (Ctl as TCombobox).Text:= SValue;
         end;
  -      if Ctl is TListBox then (Ctl as TListBox).ItemIndex:= StrToIntDef(SValue, 0);
  +      if Ctl is TListBox then DoControl_SetState_Listbox(Ctl as TListbox, SValue);
         if Ctl is TRadioGroup then (Ctl as TRadioGroup).ItemIndex:= StrToIntDef(SValue, 0);
         if Ctl is TCheckGroup then DoControl_SetState_Checkgroup(Ctl as TCheckGroup, SValue);
         if Ctl is TCheckListBox then DoControl_SetState_Checklistbox(Ctl as TCheckListBox, SValue);
  
positive.code: end;
  
  
  procedure DoControl_SetState_Listview(C: TListView; SValue: string);
  var
    N: integer;
  
negative.code:     FreeAndNil(List);
    end;
  end;
  
  
  procedure DoForm_AddControl(AForm: TForm; ATextItems: string; ADummy: TDummyClass);
  var
  