Delphi如何在大TMemo中高效查找特定文本？

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

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