先自定义枚举类型，然后用该枚举类型的个数定义一个字符串数组，再定义一个该枚举类型的变量，用于for循环时：

procedure TForm1.Button3Click(Sender: TObject);
type
  Tweeks=(mon,Tue,wed,thu,fri,sat,sun);
var
  arr:array [Tweeks]of string; //這裡arr初始化了，值為('', '', '', '', '', '', '')
  weekday:Tweeks;//自定義Tweeks類
  i:Integer; //Integer也是一個類
begin
  Memo1.Clear;
  arr[mon]:='星期一';
  arr[Tue]:='星期二';
  arr[wed]:='星期三';
  arr[thu]:='星期四';
  arr[fri]:='星期五';
  arr[sat]:='星期六';
  arr[sun]:='星期天';
  //至此arr賦完值了，值為('星期一', '星期二', '星期三', '星期四', '星期五', '星期六', '星期天')
  for weekday:=Low(arr)to High(arr)do //weekday是像i一樣的變量！！！這裡定義weekday為Tweeks類。
  begin
    Memo1.Lines.Add(arr[weekday]);
  end;

end;