怎么才能做到定时关闭已开程序

我想请教你几个问题。我用delphi做了一个链接
procedure TForm1.Button1Click(Sender: TObject);
var
nResult     : Integer   ;
begin
nResult := WinExec ( 'C:\Program Files\360\360se3\360SE.exe' , 0 ) ；
if nResult > 31 then
ShowMessage ( '浏览器成功运行！' )

我想如果浏览器在空闲1分钟后强制关闭，应当加入什么代码？