Tak v tom kodu nehledej od prvniho radku, ale od radku, na kterem stojis.
Kod mas od pme o prispevek vys, jen si zmen radek:
for i := 0 to MyMemo.Lines.count-1 do
za for i := MyMemo.CaretPos.Y to MyMemo.Lines.count-1 do
a bude ti hledat od radku na kterem stojis do konce