Szukanie tekstu

Aby po kliknięciu przycisku Button1 znaleźć i zaznaczyć tekst "Hetman" w RichEdit1:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   String Szukaj = "Hetman";
   int Pozycja = RichEdit1->Text.Pos(Szukaj) - 1;
   RichEdit1->SelStart = Pozycja;
   RichEdit1->SelLength = Szukaj.Length();
   RichEdit1->SetFocus();
}