怎么设置一段代码执行时间

如何设置一段代码执行时间？
在一个程序里，我想让其中一段功能代码在程序运行1分钟后开始执行，执行时间为5分钟，即5分钟后停止执行，如何实现？

[解决办法]
最简单的是加2个timer控件，名字为Timer1和Timer2
Timer1的Interval属性设置为60000，即1分钟
Timer2的Interval属性设置为300000，即5分钟

再声明一个全局变量bWork:Boolean;

在2个Timer控件的OnTimer事件中分别加入以下代码

Delphi(Pascal) code

procedure TForm1.Timer1Timer(Sender: TObject);begin  bWork:=True;end;procedure TForm1.Timer2Timer(Sender: TObject);begin  bWork:=False;end;
[解决办法]
时间控件是首选，不过执行5分钟？代码没执行完怎么办？
[解决办法]
Timer1控件
Timer1事件
1楼讲述的很好