anchor.diff:  
   uses
     Classes, sysutils,
  -  fpg_base, fpg_main, fpg_listview, fpg_form, fpg_button, fpg_edit, fpg_checkbox, fpg_splitter, fpg_panel, fpg_imagelist;
  +  fpg_base, fpg_main, fpg_listview, fpg_form, fpg_button, fpg_edit,
  +  fpg_checkbox, fpg_splitter, fpg_panel, fpg_imagelist, fpg_stringutils;
     
   type
   
  
positive.code:   //FListView.Items.Capacity := FListView.Items.Capacity + 2000000;
    //for I := 0 to 1999999 do begin
      Item := FListView.ItemAdd;
      Item.Caption := FEdit.Text + IntToStr(FListView.Items.Count);
      Item.SubItems.Add('c0');
      Item.SubItems.Add('c1');
      Item.SubItems.Add('c2');
  
negative.code:     FTmpListView: TfpgListView;
      FQuitButton: TfpgButton;
      FCheck: TfpgCheckBox;
      procedure LVColumnClicked(Listview: TfpgListView; Column: TfpgLVColumn; Button: Integer);
      procedure CloseBttn(Sender: TObject);
      procedure AddBttn(Sender: TObject);
      procedure SortButton(Sender: TObject);
      procedure ShowHeadersChange(Sender: TObject);
      procedure PaintItem(ListView: TfpgListView; ACanvas: TfpgCanvas; Item: TfpgLVItem;
                                     ItemIndex: Integer; Area:TfpgRect; var PaintPart: TfpgLVItemPaintPart);
  