Szukanie w richedit

JAk za pomocą finddialog wyszukać tekst w rich edit :( wiem ze kilka było takich postow ale nie moge znaleŹć

luknij w faq lub zassaj sobie zrodlo programu Pad

procedure TForm1.FindDialog1Find(Sender: TObject);
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with RichEdit1 do
begin
{ begin the search after the current selection if there is one }
{ otherwise, begin at the start of the text }
if SelLength 0 then

  StartPos := SelStart + SelLength
else

  StartPos := 0;

{ ToEnd is the length from StartPos to the end of the text in the rich edit control }

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;
end;

A w jakimś buttonie:

[code]FindDialog1.Execute;[/code]

Dzięki

Tak ciężko nacisnąć te F1?

Tak ciężko bo nie znam angielskiego :(
]

POKAZUJE MI TAKI BŁĄD
[Error] Unit1.pas(403): Undeclared identifier: 'FindDialog1Find'

Tak ciężko bo nie znam angielskiego :(
]

POKAZUJE MI TAKI BŁĄD
[Error] Unit1.pas(403): Undeclared identifier: 'FindDialog1Find'

A dodales FindDialog (komponent) z zakladki Dialogs? [cya]

tak

tak

1. postaw komonent FindDialog na forme.
2. Wejdz do zakladki Events w OI tego komonentu.
3. kliknij dwa razy na onFind.
4. wklej kod do tej procedury

i powinno byc dobrze :d

OK juz mi działa dzięki

Niech ktoś to sprawdzi i wrzuci do gotowców, bo już pogubiłem się w liczeniu ile razy to występowało.