type
   te = (enum);

var
   e : te;

begin
   inc(e);
end.