type
  TCharSet = set of AnsiChar;

var
  Chars, Chars2: TCharSet;
  ContainA, ContainE, ContainAll: Boolean;
begin
  Chars := ['A', 'B', 'C', 'D'];

  ContainA := 'A' in Chars;
  //containA is True

  ContainE := 'E' in Chars;
  //containE is False

  //subset check
  Chars2 := ['A', 'B'];
  ContainAll := Chars2 <= Chars;
  //containAll is True

  WriteLn('containA is ', ContainA);
  WriteLn('containE is ', ContainE);
  WriteLn('containAll is ', ContainAll);
end.