[lmikle]

Могу оказаться не прав, но, вроде, такой способ работал:
1. Вычисляем позицию нужного слова в TMemo.Lines.Text.
2. Устанавливаем свойство SelStart в полученное значение.
С TEdit работает точно, скорее всего будет работать и с TMemo.