StringList -RichEdit

[Helen_geo]

Всем, доброго дня. Очень прошу, помогите решить задачу.
В процедуре
ss1 : TstringList - создается и заполняется выше в программе
При каждом нажатии клавиши подбирает похожие слова из ss1 в
ListBox1. работает с начала стоки.
Теперь надо что бы поиск работал с любого места в тексте TRichEdit (желание пользователя). В RichEdit -'Би' пробел..след слово пользователь вспомнил и начинает вводить после Би след букву

procedure TFrmMemoEdit.meEditChange(Sender: TObject);
var
 i : integer;
begin
  ListBox1.Clear;
with Sender as  TRichEdit do
begin
  for i := 0 to ss1.Count - 1 do
  begin
     if CompareText (AnsiLowerCase(Text), AnsiLowerCase(Copy(ss1.strings[I],1,Length(meEdit.Text))))=0 then
     begin
       ListBox1.AddItem(ss1.strings[I],ListBox1);
    end;
   end;
 end;
 ListBox1.ItemIndex:=0;
 ListBox1.SetFocus;
end;

[evg_m]

с любого

это с с какого?
именно с любого (проверять ВСЕ позиции от первой до последней)?!
ПРОИЗВОЛЬНАЯ (но не любая) позиция указанная пользователем? SelText.

[Helen_geo]

курсор стоит на произвольной строке, с произвольного символа пользователь начинает вводить текст, может вводить новый текст , может вводить продолжая какое-то слово. Разделителем слова думаю надо считать пробел. Получается пробел после ..'бро'.. пользователь ставить курсор после бро и начинает вводить след символ 'н', у меня должны из ss1, выгрузиться все слова не с символа который вводит пользователь, а слова с 'брон'.

[evg_m]

Итак позиция есть.
"Бежим" вперед/назад до разделителя (конца/начала) и получаем то что надо.
P.S. работать на заказ и не мочь пользоваться справкой!!!