var
i: TMyTest;
begin
for i := Low(TMyTest) to High(TMyTest) do begin
if i in MyTestSet then
Exclude(MyTestSet, i);
end;
end;