delphi实现延时的方法，很多人首先就想到用timer控件，这里我们不用timer控件看如何来实现？ 首先介绍一下settimer函数的使用：
例如：settimer(self.handle,0,1000,@timerfun);
参数依次为:
1.调用函数的handle,windows会定时发送WM_TIMER消息给此handle
2.timer的标识,可设置为0
3.定时器的值,单位是毫秒
4.回调函数
//回调函数：当定时器到点后，就会调用该函数，该函数的格式有一定的讲究，可以参照以下写：
procedure timerfun(handle:Thandle;msg:word;identer:word;dwtime:longword);stdcall;
begin
showmessage('到点了');
killtimer(handle,identer);//关闭定时器
end;
//其中的identer是定时器的句柄
//主函数：在主函数里定义定时器并开始运作：比如在一个按纽事件里写：
procedure TForm1.Button1Click(Sender: TObject);
var
identer:integer;
begin
identer:=settimer(0,0,2000,@timerfun);
if identer=0 then //定时器没有创建成功。
exit;
end;