[Delphi] Wortkette in Memo suchen und Zeilennummer wiedergeben

Tja schon fast im Titel erklärt

Also ich habe ein Memo mit z.B. 500 Zeilen und suche dort einen String.
Dieser existiert dort nur einmal und ich brauche die konkrete Zeilennummer um von dort an den Rest des Textes zu kopieren...

Wer kann da helfen?

Beste Grüße
---
\
/
--arthling