Разбор функции поиска текста в TWebBrowser

[kta87]

Поиск и выделение элемента, удовлетворяющего поиску осуществляю функцией

type
  MyContent: TWebBrowser;
  TextEdit: TEdit;
...
uses
  MSHTML
...

function TMyBook.Find(ATextToFind: WideString; FindDirection: Integer): boolean;
var
  Range: IHTMLTxtRange;
begin
  Range:= ((MyContent.Document as IHTMLDocument2).body as
            IHTMLBodyElement).createTextRange;
  Result:= Range.findText(ATextToFind, FindDirection, 0);
  if Result then
   begin
     Range.select;
     Range.scrollIntoView(True);
   end
   else
    begin
     ShowMessage('Поиск не дал результатов!');
    end;
end;

Использование

Find(TextEdit.Text, 0);

1. Не хватает знаний для полного понимания этой функции, конкретнее параметр "FindDirection". Подскажите на что он влияет, я вот в вызове поставил значение "0", все работает, ну только находит 1 удовлетворяющее запросу, и останавливается, менял на 1, 3 и т.п. - ни чего не меняется.
2. Как доработать (может параметров добавить) в функцию, для того что бы поиск не останавливался на 1 положительном результате?

[=master=]

http://msdn.microsoft.com/ru-ru/libr...(v=vs.85).aspx