Получение имени перечисляемого типа

TGroupType = (Warm, Cold, Water, Sewage{сточные воды}, Electro);
  TGroupTypes = set of TGroupType;

class function TAbstractInterface.ReturnType: TGroupType;
begin
  Result := [];
end;

for var j := low(Interfaces[i].ReturnType) to High(Interfaces[i].ReturnType) do
      if GetEnumName(TypeInfo(Interfaces[i].ReturnType), integer(j)) = ... then

var xSet: TGroupTypes;
 
xSet:=[]; //пустое
xSet:=[Cold]; //c одного элемента
xSet:=[Cold]+[Water]; //c нескольких

type TMyArray = array of Integer;
 
function Abc: TMyArray;
begin
  SetLength(Result,2);
  Result[0]:=1;
  Result[1]:=2;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
    s: String;
    x: TMyArray;
begin
  x:=Abc;
  s:='';
  for i:=Low(x) to High(x) do s:=s+IntToStr(x[i])+' ';
  ShowMessage(s);
  SetLength(x, 0);
end;

var j: TGroupType;
 
for j:=Low(TGroupType) to High(TGroupType) do
  if j in xSet then ...  //входит

TGroupType = (Warm, Cold, Water, Sewage{сточные воды}, Electro);

TGroupTypes = set of TGroupType;

var w: TGroupTypes;

if ComboBox2.ItemIndex = GetEnumValue(TypeInfo(TGroupType), GetEnumName(TypeInfo(TGroupType), ComboBox2.ItemIndex)) then
      for j := low(TGroupType) to high(TGroupType) do
        if j in Interfaces[i].ReturnType then
          ComboBox2.Items.Add(Interfaces[i].GetObjectName);