Szukanie tekstu w RichEdit

Zaczniemy od położenia na formę komponentu FindDialog z zakładki Dialog. W Inspektorze Obiektów wchodzimy do zakładki Events i klikamy dwa razy na właściwość OnFind.
W tym momencie zostanie stworzona definicja i deklaracja obsługi tego zdarzenia.
W kodzie procedury tej obsługi wprowadzamy poniższy kod:

var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
  with RichEdit1 do
  begin
{ jeśli jest zaznaczenie, to zaczyna szukać od momentu zaznaczonego tekstu w przeciwnym wypadku od początku tekstu}
    if SelLength <> 0 then
      StartPos := SelStart + SelLength
    else
      StartPos := 0;

  { ustala koniec przeszukiwanego tekstu  }
    ToEnd := Length(Text) - StartPos;

    FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
    if FoundAt <> -1 then
    begin
      SetFocus;
      SelStart := FoundAt;
      SelLength := Length(FindDialog1.FindText);
    end;
  end;

teraz tylko pozostaje nam przyporządkować wywołanie okienka szukania.
Do dowolnego Button'a tworzymy procedurę onClick, w której umieszczamy:

  FindDialog1.Execute;

No i oczywiście nie zapomnij wstawić komponentu RichEdit......

Milej zabawy :-)