Jak wyszukać stringa w SynMemo ?

Witam,
jest to mój pierwszy post i zaznaczam że przeszukałem Forum w poszukiwaniu odpowiedzi na moje pytanie lecz co bym nie szukał to zawsze w wyniku wyszukiwania wyświetli się co najmniej 50 stron... Więc poprawcie sobię tę wyszukiwarkę.
No dobrze a teraz pytanie :
Jak wyszukać tekst w synmemo ?? Nie działa searchtext ( na richedicie działa) . No i nie ma metody selLenght to jest akurat do zrobienia z
SelEnd - SelStart.

Jeśli z wykorzystaniem TSearchDialog to dajesz najpierw SearchEngine jakiś na SynEdita i w opcjach SynEdita zaznaczasz właśnie tego SearchEngine`a... - wstawiasz TSearchDialog i odpalasz:

var
  SearchSetup: TSynSearchOptions;
  Find: TFindDialog;
begin
  Find := TFindDialog(Sender);
  SearchSetup := [ssoPrompt];
  if not (frDown in Find.Options) then SearchSetup := SearchSetup + [ssoBackwards];
  if (frMatchCase in Find.Options) then SearchSetup := SearchSetup + [ssoMatchCase];
  if (frWholeWord in Find.Options) then SearchSetup := SearchSetup + [ssoWholeWord];
  if SynMemo.SearchReplace(Find.FindText, '', SearchSetup) = 0 then ShowMessage('Szukany element nie został znaleziony!');
end;

Do uses przy implementacji dodaj: "SynEditTypes"

Jeśli natomiast chcesz zwykłe wyszukanie to "pos" + F1

PS: nie używaj SynMemo bo jest "rozwalony" .. sami twórcy tak mówią..

Serdecznie dziękuję. Jeszcze tylko przydałby się kod do search - replace :)

popatrz sobie procedurkę StringReplace