nazwa array jako zmienna

const 
  MyArray_elementy  : array  [0..2] of string = ('element 1','element 2','element 3');
  MyArray_imiona    : array  [0..3] of string = ('Adam','Ewa','Zosia','Kamil');

Function CzyIstniejeWTablicy(nazwa_tablicy, poszukiwana_wartosc : string):Boolean
var i:byte;
begin
  tutaj trzeba jakoś znaleźć tę tablicę po jej nazwie  

  tutaj będzie pętla po tablicy
end


if CzyIstniejeWTablicy('MyArray_imiona','Ewa') then

type TMyArray:array[0..2] of String;

function CzyIstniejeWTablicy(const nazwa_tablicy:TMyArray;poszukiwana_wartosc:string):Boolean;
var I:Integer;
var Str:String;
begin
  for I:=Low(nazwa_tablicy) to High(nazwa_tablicy) do
  begin
    if nazwa_tablicy[i]=poszukiwana_wartosc then
    begin
      Result:=true;
      Exit;
    end;
  end;
  Result:=false;
end;

if CzyIstniejeWTablicy(MyArray_elementy,'Ewa') then ...

Function CzyIstniejeWTablicy(const arr: Array of string; const str: String);
...
if CzyIstniejeWTablicy(MyArray_imiona,'Ewa') then

unit Unit1;

interface

uses
  Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Generics.Collections;

type
  TTypeArrayOfString =  array  [0..3] of string;
  TMyDictArray = TDictionary<string,TTypeArrayOfString>;
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  strict private
    dict: TMyDictArray;
  private
    const
        MyArray_elementy  : TTypeArrayOfString = ('element 1','element 2','element 3','');
        MyArray_imiona    : TTypeArrayOfString = ('Adam','Ewa','Zosia','Kamil');
  public
    constructor Create(AOwner: TComponent);  override;
    destructor Destroy(); override;
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

    dict.AddOrSetValue('MyArray_elementy',MyArray_elementy);
    dict.AddOrSetValue('MyArray_imiona',MyArray_imiona);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
  d: TTypeArrayOfString;
  I: Integer;
begin
    dict.TryGetValue('MyArray_imiona',d);
    for I := 0 to Length(d) -1 do
        if d[i] = 'Ewa' then
            ShowMessage('HURRA');
end;

constructor TForm1.Create(AOwner: TComponent);
begin
    inherited Create(AOwner);
    dict := TMyDictArray.Create();
end;

destructor TForm1.Destroy;
begin
    dict.Free();
    inherited;
end;

end.

type
  TNamedStringCollections = TDictionary<String, TStringList>;