Busqueda y selección en un Memo

[Dado de baja]

Hola de nuevo.

Tenemos un memo con text, direcciónes, etc.
Me gustaría hacer que se pueda buscar una palabra y si existe una o más veces, que se marque como selección por ejemplo.

Si esto es muy complicado, hacer que se marque la linea, con esto ya valdría.

He intentado: Memo1.Lines.IndexOf(s) pero s tiene que ser igual a toda la linea. :-(

Una opción sería buscar con pos en todas las lineas una por una, y marcar aquellas que dé positivo. Pero ¿ hay una forma mejor ?

saludos.