SynEdit - поиск и замена. Delphi

[[DisAssembleR]]

Доброго времени суток всем, кто сейчас это читает.

Встала такая проблема: использую SynEdit для подсветки синтаксиса. Только не пойму вот, как организовать поиск в этом самом SynMemo, не используя стандартный FindDialog (совсместно с FindDialog я сумел реализовать поиск).

Также интересует, что такое SynEditSearch и с чем его едят.

Замену сделал, но она не шибко мне нравится. Пытался поправить - либо не работает, либо просто выдает ошибку.

Справки как таковой, по компоненту, я не обнаружил.
В Делфи всего лишь полгода, так что не особо пока понимаю многие вещи.

Прошу помочь хоть как-нибудь, если кто сможет.
Заранее спасибо.

[[DisAssembleR]]

Вот это я использую для поиска первого вхождения желаемого текста.

procedure TForm3.sButton2Click(Sender: TObject);
begin
  Form1.SynEditSearch1.Pattern := SynMemo1.Text;
  sOpt := sOpt + [ssoMatchCase];
  Form1.SynEditSearch1.Options := sOpt;
if Form1.SynEditSearch1.FindFirst(sEdit1.Text) > -1 then
begin
  SynMemo1.SetFocus;
  SynMemo1.HideSelection := False;
  SynMemo1.SelStart := pos(sEdit1.Text, SynMemo1.Text) - 1;
  SynMemo1.SelLength := Length(sEdit1.Text);
end
else
  ShowMessage('not Find text');
end;

Это - для последующего поиска.

procedure TForm3.sButton3Click(Sender: TObject);
begin
  Form1.SynEditSearch1.Pattern := SynMemo1.Text;
  sOpt := sOpt + [ssoMatchCase];
  Form1.SynEditSearch1.Options := sOpt;
if Form1.SynEditSearch1.FindFirst(sEdit1.Text) > -1 then
begin
  SynMemo1.SetFocus;
  SynMemo1.HideSelection := False;
  SynMemo1.SelStart := posEx(sEdit1.Text, SynMemo1.Text, SynMemo1.CaretX) - 1;
  SynMemo1.SelLength := Length(sEdit1.Text);
end
else
  ShowMessage('not Find text');
end;

Только вот незадача - последующий поиск работает через раз.
Может, я что-то не так делаю?

[[DisAssembleR]]

Все, разобрался. Тему можно закрывать. Кому интересно, держите:

var
  sOption : TSynSearchOptions;
begin
  RichEdit.SearchEngine := Form1.SynEditSearch1;
  Form1.SynEditSearch1.Pattern := ComboBox1.Text;
  sOptions := [];
if CheckBox1.Checked then
  include(sOptions, ssoWholeWord);

if CheckBox2.Checked then
  include(sOptions, ssoMatchCase);

if RadioButton1.Checked then
  exclude(sOptions, ssoBackwards);

if RadioButton2.Checked then
  include(sOptions, ssoBackwards);

  Form1.SynEditSearch1.FindAll(RichEdit.Lines.Text);
if Form1.SynEditSearch1.ResultCount > 0 then
begin
  RichEdit.SelStart := Form1.SynEditSearch1.Results[Form1.SynEditSearch1.Next] - 1;
  RichEdit.SelLength := Length(ComboBox1.text);
  Button2.Enabled := true;
end
else
begin
  MessageDlg({'Строка поиска "'} str + ComboBox1.Text + str1{' не может быть найдена!'}, MtInformation, [mbOk], 0);
  RichEdit.SetFocus;
end;
end;