anchor.diff:    UseAutosize:= false;
   
     repeat
  -    SNameValue:= SGetItem(AItems, Chr(1));
  +    SNameValue:= SGetItem(ATextItems, Chr(1));
       if SNameValue='' then break;
       SName:= SGetItem(SNameValue, '=');
       SValue:= SNameValue;
  -    if SName='' then continue;
  +    if SName='' then Continue;
   
  +    //-------type
       if SName='type' then
       begin
         if SValue='check' then begin Ctl:= TCheckBox.Create(AForm); end;
  
positive.code:       Continue;
      end;
  
      if SName='val' then
      begin
        if Ctl is TCheckBox then (Ctl as TCheckBox).Checked:= (SValue<>'0');
  
negative.code:       Continue;
      end;
  
      //-------items
      if SName='items' then
      begin
        repeat
  