Кое не ти харесва тук? Имаш предвид грешно изписване и/или интервали и/или други спец. символи? Както казах, това е силно опростен пример. В програмата ключовите думи се взимат даже от самия reDoc :-))
Това
reDoc.SelStart := 0; reDoc.SelLength := 4;
edtKey.Text := reDoc.SelText;
reDoc.SelStart := reDoc.FindText(edtKey.Text, 0, Length(reDoc.Lines.Text), []);
пак връща -1.
Напиша ли нещо на ръка и го пусна за търсене, винаги го намира и след това всичко тръгва ок :-\\

Съдържаниет е скрито
Влезте за да го видите