procedure TForm1.Button1Click(Sender: TObject); begin

FindDialog1.Position := Point(RichEdit1.Left + RichEdit1.Width,

FindDialog1.Execute; {Мәтіннің үзіндісін іздеу диалог терезесін активтейді}

FoundAt: LongInt;

StartPos, ToEnd: Integer;

begin

WITH RichEdit1 DO

BEGIN

IF SelLength <> 0 THEN {Мәтіннің ерекшеленген бөлігінің ұзындығы нольге тең болмаса, онда…}

{Іздеу ағымды таңдаудан кейін басталады, егр ол бар болса}

StartPos := SelStart + SelLength;

{SelStart –мәтіннің ерекшеленген бөлігінің мәтіннің басынан бастағанда бірінші символын анықтайды (символдарды нөмірлеу 0 – ден басталады 0). Егер мәтін ерешеленбеген болса, онда алдында мәтіндік нұсқағыш орналасқан символға нұсқалынады}

ELSE

StartPos := 0; {Басқаша, іздеу мәтіннің басынан басталады}

ToEnd := Length(Text) - StartPos;

FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd,
[stMatchCase]);

{FindText –мәтіннен диалог терезесінде берілген жолды іздейді және сәтті іздеуде оның бірінші символының индексін қайтарады. StartPos – іздеудің басы; ToEnd – жолдың ұзындығы, [stMatchCase] – іздеу кезінде жолдық және бас әріптердің айырмашылықтары ескерілетінін айтады}