anchor.diff:    InsertRange(Count, Collection);
   end;
   
  +{$IFNDEF FPC}
   function TFslList<T>.asBase: TFslList<TFslObject>;
   var
     item : T;
  
positive.code:     result.free;
    end;
  end;
  
  procedure TFslList<T>.Insert(Index: Integer; const Value: T);
  begin
  
negative.code:       exit(true);
  end;
  
  {$IFNDEF FPC}
  procedure TFslList<T>.copyList(list: TFslList<TFslObject>);
  var
    item : TFslObject;
  