Sigue el enlace de arriba para descargar un ejemplo de un componente memo que implementa búsqueda (y también búsqueda y reemplazo). El algortimo está bastante completo, y lo puedes extraer y adaptar a tu caso para usarlo en el evento OnFind del TFindDialog.