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