type
  TThingSize = (tsTiny, tsSmall, tsMedium,
                tsLarge, tsExtraLarge, tsHuge);
function CheckSize: Boolean;
var
  Sizes: set of TThingSize;
begin
  Sizes := [tsMedium..tsExtraLarge];
  {insert statements here}
end;

Suggest a question | Return to beginning