anchor.diff:        ResetItemsSelected;
         LSelectedVal := TStringList.Create;
         try
  +        LSelectedVal.StrictDelimiter := True;
           LSelectedVal.CommaText := FText;
           for i := 0 to LSelectedVal.Count-1 do
             for j := 0 to Items.Count-1 do
  
positive.code:               LSelectedVal.Add(Items[v]);
              FItemsSelected[v] := True;
            end;
          ATextValue := LSelectedVal.CommaText;
        finally
          LSelectedIdx.Free;
  
negative.code: 
  procedure TIWBSSelect.SetItemIndex(AValue: integer);
  begin
    if not FMultiSelect and (AValue < 0) and (Items.Count > 0) then
      AValue := 0;
    inherited;
    ResetItemsSelected;
  end;
  