Get files in directory by filter

GetFiles.pas

function GetFiles(const _sVerzeichnis: string): TStringDynArray;
const
	FILTER : array  [1..2] of string = ('*.zip', '*.7z');
begin
	Result := TDirectory.GetFiles(_sVerzeichnis, TSearchOption.soAllDirectories,
		function(const Path: string; const SearchRec: TSearchRec): Boolean
		var
		  Mask: string;
		begin
		  for Mask in FILTER do
			if MatchesMask(SearchRec.Name, Mask) then
			  exit(True);
		  exit(False);
		end);
end;