关于事件中的循环(5分)

点击事件（如BUTTON的CLICK），点击第一下LABEL。CAPTION为0到3中的一个数，点击第二次
CAPTION为4到7中的一个数，点击第三下为8到9的一个数，以此为循环，该如何实现呢？
请各位大富翁指点，最好给代码看看

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize();
case Tag of
0 : Label1.Caption := IntToStr(Random(4));
1 : Label1.Caption := IntToStr(4+ Random(4));
2 : Label1.Caption := IntToStr(8+ Random(2));
end;
Tag := Tag + 1;
if Tag = 3 then Tag := 0;
end;

多人接受答案了。