Delphi 循环写法

求助Delphi 循环写法
怎么让窗口的Button按键改成按一次就不停地执行该Button的动作？就是循环运行。 新手入门，盛表感谢！

[解决办法]

Delphi(Pascal) code

var stopdo:boolean;procedure TForm1.Button1Click(Sender: TObject);begin while not stopdo do  begin    sleep(1);    application.ProcessMessages;  end;end;procedure TForm1.Button2Click(Sender: TObject);begin stopdo:=true;end;