anchor.diff:  
       //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
  
positive.code: end;
  
  
  procedure DoAddControl(AForm: TForm; ATextItems: string; AControlIndex: integer);
  var
    SNameValue, SName, SValue, SListItem: string;
    NX1, NX2, NY1, NY2: integer;
    Ctl: TControl;
  begin
    Ctl:= nil;
  
  
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
  