[AlexandrV]

Не стал создавать новую тему. Реч идет о поиске текста через PosEx

вот код

Код:

If PosEx(Form1.Edit4.Text,Form1.RichEdit1.Lines.Text,IntPosI) <> 0 then begin
    Form1.RichEdit1.SelStart:=PosEx(Form1.Edit4.Text,Form1.RichEdit1.Lines.Text,IntPosI)-1;
    Form1.RichEdit1.SelLength:=Length(Form1.Edit4.Text);
  end;

Не ищет. Переменная IntPosI = 1 точнее может и ищет но не выделяет