maksymalna wartosc typu wyliczeniowego

Witam
mam typ wyliczeniowy:

TTrybPracy = (tpMaster, tpSlave, tpDEMO);

I robie sobie po nim petle...

var Tryb: TTrybPracy;

begin
  for Tryb := tpMaster to tpDemo do 
    {...cos tam...}

end;

ale mam sluszne podejzenia ze w przyszlosci dodam jeszcze jakies inne tryby pracy.
Chcialbym tak napisac ta petle zeby nie musiec jej zmieniac po dodaniu nowych wartosci do typy TTrybPracy

Czy jest jakas magiczna funkcja zwracajaca najwieksza wartosc z danego typu?

[glowa]

dzieki:-)