поиск файлов по нескольким маскам

[racosa123]

привет
нашел код который может реализовать мою задумку

uses
  StrUtils, Types, Masks, IOUtils;
  
function MyGetFiles(const Path, Masks: string): TStringDynArray;
var
  MaskArray: TStringDynArray;
  Predicate: TDirectory.TFilterPredicate;
begin
  MaskArray := SplitString(Masks, ';');
  Predicate :=
    function(const Path: string; const SearchRec: TSearchRec): Boolean
    var
      Mask: string;
    begin
      for Mask in MaskArray do
        if MatchesMask(SearchRec.Name, Mask) then
          exit(True);
      exit(False);
    end;
  Result := TDirectory.GetFiles(Path, Predicate);
end;

но не могу разобраться куда забить маски для поиска
помогите

[Serge_Bliznykov]

Сообщение от racosa123

куда забить маски для поиска

сюда:

Сообщение от racosa123

Masks: string

забивать в виде строки, маски друг от друга отделять точкой с запятой (';')

[racosa123]

Сообщение от Serge_Bliznykov

сюда:
забивать в виде строки, маски друг от друга отделять точкой с запятой (';')

вот так ? ошибку выдает

function MyGetFiles(const Path, Masks: '*.exe'): TStringDynArray;

[Аватар]

xMyArray:=MyGetFiles(Path,'*.exe');