如何在Delphi中实现长尾词在大型TMemo中的高效查找？

本文共计380个文字，预计阅读时间需要2分钟。

我有一个包含大量文本的TMemo，80M（约400K行）。TMemo设置为WordWrap=FALSE，无需查找包含两行的文本。我需要一种快速查找文本的方法，从开头开始，然后找到下一个。因此，我将使用一个TEdit来设置文本。