anchor.diff:    //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.Caption := FEdit.Text + IntToStr(Random(1000));
       Item.SubItems.Add('c0');
       Item.SubItems.Add('c1');
       Item.SubItems.Add('c2');
  
positive.code:   LVColumn.Width := 100;
    LVColumn.Height := 50;
    LVColumn.Alignment := taCenter;
    //LVColumn.Visible := False;
    FListView.Columns.Add(LVColumn);
    //FTmpListView.Columns.Add(LVColumn);
  
negative.code:   TmpImage: TfpgImage;
  begin
    inherited Create(AOwner);
    Randomize;
  
    WindowTitle := 'ListView Test';
    SetPosition(200, 200, 640, 480);
  