Собственно там особо и делать нечего если нужно искать только первое вхождение:
Код:
procedure TForm24.FindDialog1Find(Sender: TObject);
begin
Memo1.SelStart := Pos(FindDialog1.FindText,Memo1.Text)-1;
Memo1.SelLength := Length(FindDialog1.FindText);
Memo1.SetFocus;
end;
А вот если надо реализовывать продолжение поиска, тогда уже чуток посложнее.
