えとですね、おそらくループでまわして５５００個入れてるとおもうのですが、
単に add してるだけだと、１個アイテムを入れるたびに再描画するのですよ。

BeginUpdate してから５５００個入れて EndUpdate.

それでも足りなかったら

Items:=TListItems.Create して５５００個入れ、最後に TListView.Items.Assign( Items ) する。