anchor.diff:  
     TfpgListViewSubItems = class(TStrings)
     private
  -    FList: TList;
  +    FList: TFPList;
       FOnChange: TNotifyEvent;
       function GetImageIndex(ASubIndex: Integer): Integer;
       procedure SetImageIndex(ASubIndex: Integer; const AValue: Integer);
  
positive.code:   FList.Delete(Index);
  end;
  
  end.
  
negative.code: 
  constructor TfpgListViewSubitems.Create;
  begin
    FList:= TFPList.Create;
  end;
  
  destructor TfpgListViewSubItems.Destroy;
  begin
    Clear;
    FList.Free;
    inherited Destroy;
  end;
  
  procedure TfpgListViewSubitems.Delete(Index: Integer);
  