anchor.diff:        if SValue='button' then
           begin
             Ctl:= TButton.Create(AForm);
  -          (Ctl as TButton).ModalResult:= cButtonResultStart+AControlIndex;
  +          (Ctl as TButton).ModalResult:= cButtonResultStart+ AForm.ControlCount;
             {$ifdef darwin}
             Ctl.Height:= 21; //set smaller size
             {$endif}
  
positive.code:     F.Height:= ASizeY;
      F.Caption:= ATitle;
  
      NIndex:= 0;
      repeat
        SItem:= SGetItem(AText, #10);
        if SItem='' then break;
        DoAddControl(F, SItem, NIndex);
        Inc(NIndex);
      until false;
  
      if (AFocusedIndex>=0) and (AFocusedIndex<F.ControlCount) then
  
negative.code: 
      //first name must be "type"
      if not Assigned(Ctl) then exit;
  
      //adjust previous label's FocusControl
      if Ctl is TWinControl then
        if AForm.ControlCount>=2 then
        begin
          CtlPrev:= AForm.Controls[AForm.ControlCount-2];
          if CtlPrev is TLabel then
            (CtlPrev as TLabel).FocusControl:= Ctl as TWinControl;
        end;
  
      //-------en
      if SName='en' then
  