Q：怎样让程序延时

A：

procedure Delay(msecs:integer);

var

FirstTickCount:longint;

begin

FirstTickCount:=GetTickCount;

repeat

Application.ProcessMessages;

until ((GetTickCount-FirstTickCount) >= Longint(msecs));

end;