anchor.diff:  constructor TfpgLVColumns.Create(AListView: TfpgListView);
   begin
     FListView := AListView;
  -  FColumns := TList.Create;
  +  FColumns := TObjectList.Create;
   end;
   
   destructor TfpgLVColumns.Destroy;
  
positive.code:   TfpgLVColumns = class(TPersistent)
    private
      FListView: TfpgListView;
      FColumns: TList;
      function    GetColumn(AIndex: Integer): TfpgLVColumn;
      procedure   SetColumn(AIndex: Integer; const AValue: TfpgLVColumn);
    public
  
negative.code:   FItems.DeleteViewer(Self);
    FSelected.Free;
    FOldSelected.Free;
    FColumns.Free;
    inherited Destroy;
  end;
  
  