?
String suchstr="r";
int pos=0;
while(pos<RichEdit1->Lines->Count&&!RichEdit1->Lines->Strings[pos].Pos(suchstr)) pos++;
int mi=pos+10;
if(mi>=RichEdit1->Lines->Count) mi=RichEdit1->Lines->Count;
RichEdit1->SelStart = RichEdit1->Perform(EM_LINEINDEX, mi, 0);
RichEdit1->Perform(EM_SCROLLCARET, 0, 0);
RichEdit1->SelStart = RichEdit1->Perform(EM_LINEINDEX, pos, 0);
RichEdit1->SelLength = RichEdit1->Lines->Strings[pos].Length();
RichEdit1->Perform(EM_SCROLLCARET, 0, 0);
RichEdit1->SetFocus();