void __fastcall TForm4::Button1Click(TObject *Sender)
{

if (OpenDialog1->Execute()) {


RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName);

}
} 
// 파일은 대략 이렇게 OpenDialog1을 사용하여 불러왔고


void __fastcall TForm4::Button2Click(TObject *Sender)
{

   if(Edit1->Text != "") {
      if(IntToStr(RichEdit1->Text.Pos(Edit1->Text))>0) {
        RichEdit1->SelStart = 0;
        RichEdit1->SelAttributes->Color = clRed;
        ShowMessage(IntToStr(RichEdit1->Text.Pos(Edit1->Align))+"번째에 있습니다");
        }

    }

}

이렇게 연습으로 몇번째에 있는지 작성해봤습니다 하지만 원하는건 키워드를 Edit에 검색하면 그 라인이 색이 칠해지고 그 키워드가
들어간 라인은 다 밑줄쳐지는걸 원하는데 좋은 방법 있을까요?!