anchor.diff:    end;
   end;
   
  -procedure DoAddControl(AForm: TForm; AItems: string; AControlIndex: integer);
  +procedure DoAddControl(AForm: TForm; ATextItems: string; AControlIndex: integer);
   var
     SNameValue, SName, SValue, SListItem: string;
     NX1, NX2, NY1, NY2: integer;
  
positive.code:           Ctl:= TButton.Create(AForm);
            (Ctl as TButton).ModalResult:= cButtonResultStart+AControlIndex;
          end;
        if Assigned(Ctl) then
          Ctl.Parent:= AForm;
        Continue;
  
negative.code:       Continue;
      end;
  
      //-------more?
    until false;
  end;
  
  
  procedure DoDialogCustom(const ATitle: string; ASizeX, ASizeY: integer;
    AText: string; AFocusedIndex: integer; out AButtonIndex: integer; out AStateText: string);
  