1 //需要引用TpyInfo单元
 2 Type
 3     TImageType = (jpg,gif,png,bmp,tif,psd);
 4 
 5 var
 6     image:TImageType;
 7     i:Integer;
 8 begin
 9     i := 0;
10     for image:= Low(TImageType) to High(TImageType) do
11     begin
12         TpyInfo.GetEnumName(TypeInfo(TImageType),i);
13         Inc(i);
14     end;
15 end;

 1 Type
 2    Uppercase = 'A'..'Z';
 3 
 4 var
 5    UppLetter:Uppercase;
 6 begin
 7     for UppLetter:= Low(Uppercase) to High(Uppercase) do
 8     begin
 9         ShowMessage(UppLetter);
10    end;
11 end;