procedure d(mm:Integer);//毫秒级别的延时
var
bt:Integer
begin
bt:=Gettickcount;
while gettickcount<bt+mm do
application.ProcessMessages;end;
var
bt:Integer
begin
bt:=Gettickcount;
while gettickcount<bt+mm do
application.ProcessMessages;end;
这个函数不好,影响了线程的运行,建议还是采用一楼写的函数.