anchor.diff:      function    GetCount: Integer; override;
       procedure   Put(Index: Integer; const S: string); override;
       procedure   PutObject(Index: Integer; AObject: TObject); override;
  -    procedure   Insert(Index: Integer; const S: string); override;
     public
       constructor Create;
  +    destructor  Destroy; override;
       procedure   Delete(Index: Integer); override;
  +    procedure   Clear; override;
  +    procedure   Insert(Index: Integer; const S: string); override;
       property    ImageIndex[ASubIndex: Integer]: Integer read GetImageIndex write SetImageIndex;
       property    OnChange: TNotifyEvent read FOnChange write FOnChange;
   
  
positive.code:   FList.Delete(Index);
  end;
  
  end.
  
negative.code: 
    TfpgListViewSubItems = class(TStrings)
    private
      FList: TFPList;
      FOnChange: TNotifyEvent;
      function GetImageIndex(ASubIndex: Integer): Integer;
      procedure SetImageIndex(ASubIndex: Integer; const AValue: Integer);
  