VBA中如何停止一个无终止条件的循环

比如用循环生成一个为断变化的随机数，如何通过按钮停止随机数的变化呢？

begin
  memo1:=tmemo.Create(self);
if  button1.Caption='start' then
    button1.Caption :='stop'
Else if    button1.Caption ='stop' then
    button1.Caption :='start'
else
     button1.Caption :='stop';
Randomize ;
memo1.Text :=inttostr(random(20));
  Showmessage(memo1.Text );

end;

暂停1s
Application.Wait (Now + TimeValue("00:00:01"))

sleep