anchor.diff:    FItems.DeleteViewer(Self);
     FSelected.Free;
     FOldSelected.Free;
  +  FColumns.Free;
     inherited Destroy;
   end;
   
  
positive.code: constructor TfpgLVColumns.Create(AListView: TfpgListView);
  begin
    FListView := AListView;
    FColumns := TList.Create;
  end;
  
  destructor TfpgLVColumns.Destroy;
  
negative.code: uses
    Classes,
    SysUtils,
    contnrs,
    fpg_base,
    fpg_main,
    fpg_widget,
  