Findtext, Не втыкаю! Опции

[Артемий]

Короче пишу я текст. редактор, используя TRichEdit. Кинул на форму Файнд диалог и пытаюсь найти нужное слово вот таким способом:

procedure TForm1.N12Click(Sender: TObject);
begin
  FindDialog1.Execute;
end;
////////////////////////////////
procedure TForm1.FindDialog1Find(Sender: TObject);
var
T: TSearchTypes;
Int: Integer;
begin
  Int := 1;
  Editor.FindText(FindDialog1.FindText, FindDialog1.Position.X, Int, T);
end;

В том дело, что переменной TSearchTypes нужно присвоить определенное значение, НО КАК? Конечно может кто знает, подскажите пожалуйста!
Пробовал запрос в Delphi Help, вот чё пишет:

type
  TSearchType = (stWholeWord, stMatchCase);
  TSearchTypes = set of TSearchType;
function FindText(const SearchStr: string; StartPos, Length: Integer; Options: TSearchTypes): Integer;

Вообщем голову поломал долго!

[volvo]

Editor.FindText(FindDialog1.FindText, FindDialog1.Position.X, Int, [stWholeWord]);

Можешь установить другие сочетания для Options:

[stWholeWord, stMatchCase]

или

[]

(значит, ни одной опции не передаешь)