anchor.diff:  end;
   
   
  -procedure DoAddControl(AForm: TForm; ATextItems: string; AControlIndex: integer);
  +procedure DoAddControl(AForm: TForm; ATextItems: string);
   var
     SNameValue, SName, SValue, SListItem: string;
     NX1, NX2, NY1, NY2: integer;
  -  Ctl: TControl;
  +  Ctl, CtlPrev: TControl;
   begin
     Ctl:= nil;
   
  
positive.code:       if SValue='button' then
          begin
            Ctl:= TButton.Create(AForm);
            (Ctl as TButton).ModalResult:= cButtonResultStart+AControlIndex;
            {$ifdef darwin}
            Ctl.Height:= 21; //set smaller size
            {$endif}
  
negative.code:     F.Height:= ASizeY;
      F.Caption:= ATitle;
  
      repeat
        SItem:= SGetItem(AText, #10);
        if SItem='' then break;
        DoAddControl(F, SItem);
      until false;
  
      if (AFocusedIndex>=0) and (AFocusedIndex<F.ControlCount) then
  