求一算法,请高人指点

Question

我想实现，一个按钮,点第一次时，showmessage('1');点第二次时showmessage('2');点第三次时showmessage('3');第四次时又显示为showmessage('1);五次为showmessage('2');,六次为showmessage(3);第七次时又是showmessage('1');如此循环，不能出现溢出或其他异常,怎么实现？要源码.

Answer 1

var
 x:integer;在按纽按下事件中
x;=x+1;
x:=x mod 3;
showmessage(inttostr(x));

Answer 2

x;=x+1;
x:=x mod 3;
if x=0 then x:=3;
showmessage(inttostr(x));

Answer 3

i :=1;//初始化
//=======if i = 4 then i :=1;
showmessage(inttostr(i));
Inc(i);