delphi 延时函数（或过程)

procedure delay(second:Integer);
var
initialTime:Cardinal;
begin
initialTime:=GetTickCount;
while GetTickCount - initialTime < second *1000 do

end;

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;

SLEEP(1000)，支持多线程的
延时1秒