关于枚举类型的问题?

定义了一个枚举类型
type
Tcolor=(Yellow,Orange,Green,Black,Red,Silver,White);
var
s1:Tcolor;

我做了一个case语句., 语句里面的那个选项表达表怎么才能表示(就是语句里的S1).

case s1 of
Green:
Label1.Caption:='春天';
Red:
Label1.Caption:='夏天';
Silver:
Label1.Caption:='秋天';
White:
Label1.Caption:='冬天';
end
end;