enumSet

{$APPTYPE CONSOLE}
program enumSet;

uses
  SysUtils;

type
  TMyEnum = (meA, meB, meC);
  TMyEnumSet = set of TMyEnum;

  TMyStruct = record
    value: integer;
    en: TMyEnum;
  end;

var
  List: array[0..99] of TMyStruct;

function func(Filter: TMyEnumSet): boolean;
var
  i: integer;
begin
  for i:= Low(List) to High(List) do
    if List[0].en in Filter then writeln(i,' ',List[i].value);
end;

begin
  func([meA,meC]);
end.