WeekDay = (Monday, TUE, Wednesday, THU, Friday, Saturday, Sunday);
Process TForm 1.btn 1Click (sender: toobject);
begin
ShowMessage ('Today is the week:'+inttostr (integer (atue)+1));
End;
The enumeration type itself is an ordinal number and does not need to be defined from 0.