anchor.diff:      result.free;
     end;
   end;
  +{$ENDIF}
   
   procedure TFslList<T>.Insert(Index: Integer; const Value: T);
   begin
  
positive.code:   for item in list do
      add(item.link as T);
  end;
  
  function TFslList<T>.Expand: TFslList<T>;
  begin
  
negative.code:   InsertRange(Count, Collection);
  end;
  
  {$IFNDEF FPC}
  function TFslList<T>.asBase: TFslList<TFslObject>;
  var
    item : T;
  