anchor.diff:        repeat
           SListItem:= SGetItem(SValue, #9);
           if SListItem='' then break;
  -        if Ctl is TListbox then
  -          (Ctl as TListbox).Items.Add(SListItem);
  -        if Ctl is TComboBox then
  -          (Ctl as TComboBox).Items.Add(SListItem);
  +        if Ctl is TListbox then (Ctl as TListbox).Items.Add(SListItem);
  +        if Ctl is TComboBox then (Ctl as TComboBox).Items.Add(SListItem);
         until false;
         Continue;
       end;
  
positive.code: const
    cButtonResultStart=100;
  
  procedure DoAddControl(AForm: TForm; AItems: string; AControlIndex: integer);
  var
    SNameValue, SName, SValue, SListItem: string;
  
negative.code: 
      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='label' then
          begin
            UseAutosize:= true;
            Ctl:= TLabel.Create(AForm);
          end;
        if SValue='combo' then
          begin
            UseAutosize:= true;
            Ctl:= TComboBox.Create(AForm);
            (Ctl as TComboBox).ReadOnly:= true;
          end;
        if SValue='button' then
          begin
            UseAutosize:= true;
            Ctl:= TButton.Create(AForm);
            (Ctl as TButton).ModalResult:= cButtonResultStart+AControlIndex;
          end;
        if Assigned(Ctl) then
  