[Delphi] Znajdź & zastąp

Piszę edytor tekstów, myślę, zę jest on fajny ma takie opcje jak zapisz, otwórrz, nwy, index górny i dolny, czcionki i ich rozmiary, autotext i inne bajer. Ale chcę jeszczę zrobić coś takiego ja w wordzie czyli funkcję znajdowania wyarzu w tekście, oraz funkcję znajdowania i zastąpiania go innym. Z góry dzięki.

ale w rich edit tylko:

var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with form1.RichEdit1 do
begin
if SelLength 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;

ToEnd := Length(text) - StartPos;

FoundAt := FindText(edit1.text, StartPos, ToEnd, [stMatchCase]);
if FoundAt  -1 then
begin
  SetFocus;
  SelStart := FoundAt;
  SelLength := Length(edit1.text);

//aby zastapic wpisz seltext := twój tekst' chyba zadziała
end;
end;
end;

ale w rich edit tylko:
...

A jeżeli nie tyko w RichEdit i nie tylko wyszukiwanie do przodu to tutaj na stronie jest do ściągnięcia moduł FastStrings, w którym m. in. znajduje się ciekawa funkcja a'la Pos.