[Delphi] FindDialog dal SynMemo (szukanie textu problem)

znalazłem na forum coś takiego do obsługi FindDialog dal SynMemo

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 Memo.SearchReplace(Find.FindText, null, SearchSetup) = 0 then
    ShowMessage('Szukany element nie został znaleziony!');

ponadto dodałem

type
TSynSearchOptions = set of (ssoMatchCase,  ssoWholeWord,  ssoBackwards,
  ssoEntireScope,  ssoSelectedOnly,  ssoReplace,  ssoReplaceAll,  ssoPrompt);

i to nadal nie działa a w debugrze wyskakuje mi
[Error] Unit1.pas(116): Incompatible types: 'TSynSearchOption' and 'Enumeration'
nie bardzo wiem co jest bo jak znalazłem w necie

TSynSearchOption = (
 ssoMatchCase, ssoWholeWord,  ssoBackwards,  ssoEntireScope,  ssoSelectedOnly,
 ssoReplace, ssoReplaceAll, ssoPrompt

i dałem to pod type to mi błąd wyskakuje. Nie wiem co mam robić HELP

P.S. Nie mam czasu się logować LOL

Sry za błędy...

w krotej linii pokazuje blad? nigdy sie tym nie bawilem i wydaje sie ze powinno dzialac ale zerknalem w google...:
http://www.koders.com/delphi/fid63D22F8FAFC14F952F7995BAB8F7E01AE5A3FEA9.aspx?s=xml
tu robia to w ten sposob:

  if not (frDown in FindDialogQuery.Options) then
    Include(Options, ssoBackwards);

U mnie pokazuje na tym samym fragmencie kodu w miejscu gdzie jest odwołanie do TSynSearchOptions.