несколько расширений в фильтре ShellListView

[memik]

мне необходимо чтобы ShellListView отображал файлы нужного мне расширения я делаю это так

var
  XFilterExt, XExt: string;
begin
  if FilterComboBox1.Mask <> '*.*' then
  begin
    XFilterExt := ExtractFileExt(FilterComboBox1.Mask);
    XExt := ExtractFileExt(AFolder.PathName);
    if (CompareText(XExt, XFilterExt) = 0) or AFolder.IsFolder then
      CanAdd := True
    else
      CanAdd := False;
end;

все работает, но если FilterComboBox1.Mask содержит несколько расширений (*.jpg;*.bmp) то отображаются файлы только расширения *.bmp, как сделать чтобы отображались несколько расширений а не одно?
поиском пользовался но везде примеры только с одним расширением


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Valio]

А разве строку масок не надо сначало разбить на составляющии?