То, что является эффективным способом удаления большого блока элементов с начала списка TList в Delphi.

Удалить (0) из списка TList дорого, потому что все последующие элементы нужно переместить вниз. Если мне нужно удалить большое количество элементов с начала еще большего списка, каков самый быстрый способ?