использывание TFindDialog

[iliili]

покажите пожалуйста как иницыировать TFindDialog и использовать его

[Xatr]

Открыть окно поиска

FindDialog1.Execute;

найти строку в RichEdit

procedure TForm1.FindDialog1Find(Sender: TObject);
var
FoundAt: LongInt;
StartPos, ToEnd: integer;
begin
with RichEdit1 do
begin
if SelLength <> 0 then StartPos := SelStart + SelLength else StartPos := 0;
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;

недавно ОС переставлял, нету Delphi, чтобы проверить, но когда раньше писал, то вроде работало.

[iliili]

у меня чет не получилось((

[Xatr]

попробуй написать свой текст и поставь курсор в начало текста