1:
2:
3:
4:
5:
6:

type
  TElement = (elEins, elZwo);
  TElemente = set of TElement;

var
  ele: TElemente;					

1:
2:
3:
4:
5:
6:
7:

    for vCntr := Ord(Low(TElement)) to Ord(High(TElement)) do
    begin
      if TElement(vCntr) in ele then
      begin
        // Speichern
      end;
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

type
  TMySet = set of TElement;
  TMySetData = file of TMySet;

{..}

procedure SaveSets(aSets: Array of TMySet; aPath: String);  //Speichert alle Sets im Array
var
  i: Integer;
  f: TMySetData;
begin
  AssignFile(aPath, f);
  ReWrite(f);
  for i := 0 to High(aSets) do
    WriteLn(f, aSets[i]);
  CloseFile(f);
end;