在中如何设置定时器（delphi)(10分)

我编写的是一个服务器程序，没有界面。在运行一个程序时我想给他设定执行时间，如果到时间了他还没有执行完毕，我就要杀死他，我应该怎样设置定时。请高手帮忙写一段代码。要用delphi语言写

var
MyTimer:UINT;
implementation
procedure MyProcedure;//定时器所触发的事件
begin
Showmessage('Ok');
KillTimer(0,MyTimer);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MyTimer:=settimer(0,0,1000,@MyProcedure);//设置定时器
end;

谢拉