Das Verhalten von Capacity und blockweiser Vergrößerung ist doch bereits im TList eingebaut?
PS: TList.Insert
So, das hier ist 20x schneller als deine Methode.
Da müssen dringend ein paar Sleep in den Code, denn es soll ja nur doppelt so schnell werden!