[ЖабаДушитКота]

Код:

var
  mytext: string;
begin
  mytext:=copy(RichEdit1.Text, k+1 ,Length(RichEdit1.Text)-k);
  If pos(Edit1.Text, mytext)<>0 then
    k:=k+pos(Edit1.text, Mytext)
  else
    k:=Pos(Edit1.Text, RichEdit1.Text);
  RichEdit1.SelStart:=k-1;
  RichEdit1.Perform(EM_SCROLLCARET,0,0);
  RichEdit1.SetFocus;
end;