procedure TMainForm.FormCreate(Sender: TObject);
begin
....
ListView1.ViewStyle:= vsReport;
ListView1.OwnerData := True;
ListView1.Items.Count := 5000;
end;
procedure TMainForm.ListView1Data(Sender: TObject; Item: TListItem);
begin
Item.Caption := inttostr(Item.Index);
debugln('TMainForm.ListView1Data - ' + inttostr(Item.Index));
end;