Передать в процедуру массив строк неизвестной длины, или неизвестное количество строк

[Kronos913]

Суть задачи: нужно определить, есть ли в папке файл, который имеет нужно окончание. И вопрос в том, что может быть несколько вариантов окончания

Внимание, процедура вложена внутрь функции, потому в ней присутствует обращение к Result

  Procedure spets;
  var
    s1, s2:string34;
    i:word;
    Dir:string;

    SearchRec: TSearchRec;
  begin
      s1:=AnsiUpperCase(edit9.Text); {копируем слово, на которое должен заканчиваться файл}

      Dir := IncludeTrailingBackslash(memo1.Lines[ind]); {получаем имя папки}
      if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then begin
        repeat
          Application.ProcessMessages;
          if (SearchRec.Attr and faDirectory)=0 then begin
            s2:=rasr(SearchRec.Name, length(s1)+3); {возвращает окончание строки, применив UpCase}
            If (s2=s1+'.JPG') or (s2=s1+'.MP4') then begin
              result:=true;
              FindClose(SearchRec);
              exit;
            end;
          end;
        until FindNext(SearchRec)<>0;
      end;
      result:=false;
      FindClose(SearchRec);     
  end;

Этот код вполне рабочий, но проблема в том, что он НЕ универсальный. И рядом есть похожая процедура, у которой есть уже 4 возможных "положительных" ответа

И вот меня интересует, как передать в универсальную функцию неизвестное число строк - в одном случае 2, в другом - 4 ?

[Kronos913]

Вот вторая процедура. С которой в единый код хочется объединить первую

  Procedure vizitka_1;
  var
    s2:string34;
    i:word;
    Dir:string;

    SearchRec: TSearchRec;
  begin
      Dir := IncludeTrailingBackslash(memo1.Lines[ind]);
      if FindFirst(Dir + '*.mp4', faAnyFile, SearchRec) = 0 then begin
        repeat
          Application.ProcessMessages;
          if (SearchRec.Attr and faDirectory)=0 then begin
            s2:=rasr(SearchRec.Name, 14);
            If (rasr(SearchRec.Name, 10)='VIZITKA.MP4') or (s2='VIZITKA_ENG.MP4') or (s2='VIZITKA_RUS.MP4') or (rasr(SearchRec.Name, 16)='VIDEOPLAYBACK.MP4') then begin
              result:=true;
              FindClose(SearchRec);
              exit;
            end;
          end;
        until FindNext(SearchRec)<>0;
      end;
      result:=false;
      FindClose(SearchRec);
  end;

[evg_m]

1. объединить ( а потом разъединить) в одну строку с использованием любого заведомо невозможного знака(символа) (например ";")

2. использовать "контейнер" наследник TStrings (TStringList)

3. использовать строку из первого варианта для заполнения контейнера из второго варианта.