anchor.diff:  
   constructor TfpgListViewSubitems.Create;
   begin
  -  FList:= TList.Create;
  +  FList:= TFPList.Create;
  +end;
  +
  +destructor TfpgListViewSubItems.Destroy;
  +begin
  +  Clear;
  +  FList.Free;
  +  inherited Destroy;
   end;
   
   procedure TfpgListViewSubitems.Delete(Index: Integer);
  
positive.code:     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;
      procedure   Delete(Index: Integer); override;
      property    ImageIndex[ASubIndex: Integer]: Integer read GetImageIndex write SetImageIndex;
      property    OnChange: TNotifyEvent read FOnChange write FOnChange;
  
  
negative.code: 
    TfpgListViewSubItems = class(TStrings)
    private
      FList: TFPList;
      FOnChange: TNotifyEvent;
      function GetImageIndex(ASubIndex: Integer): Integer;
      procedure SetImageIndex(ASubIndex: Integer; const AValue: Integer);
  