Быстрое добавление строк в ListView

  ListView1.Clear;
  n := 5000;
 
  ListView1.BeginUpdate; // раз
  for i := 1 to n do
  begin
    li := ListView1.Items.Add;
    li.Caption := IntToStr(i);
    li.SubItems.Add(IntToStr(Random(9999999)));
  end;
  ListView1.EndUpdate; // два

// ...
 TForm1 = class(TForm)
  private
    { private declarations }
    lvData : array of Integer; // Здесь будут храниться данные
  public
    { public declarations }
  end; 
 
procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
  ListView1.OwnerData := True;
  ListView1.Items.Count := 5000;
  SetLength(lvData, 5000);
  for i := 0 to High(lvData) do lvData[i] := Random(9999999); // заполняем сами данные
end;
 
// и по OnData их просто отображаем
procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  Item.Caption := IntToStr(Item.Index + 1);
  Item.SubItems.Add(IntToStr(lvData[Item.Index]));
end;

type
  Rec = class
    count : Integer;
    status : string[50];
    constructor Create(ACount : Integer; AStatus : string);
  end;
  TLst = specialize TFPGList<Rec>; // uses FGL;
 
constructor Rec.Create(ACount: Integer; AStatus: string);
begin
  Self.count := ACount;
  Self.status := AStatus;
end;
 
var
  L : TLst; // не забываем создать экземпляр перед использованием
 
// ...
  while not Query_Poisk.EOF do
  begin
    L.Add(Rec.Create(Query_Poisk.FieldByName('count').AsInteger,
                     Query_Poisk.FieldByName('status').AsString));
    Query_Poisk.Next;
  end;
  ListView1.Items.Count := L.Count;
  ListView1.OwnerData := True;