//延时函数
procedure TimeDelay(DT: DWORD);
var
TT: DWORD;
begin
TT := GetTickCount();
while GetTickCount() - TT < DT do
Application.ProcessMessages;
end;
05-15
//延时函数
procedure TimeDelay(DT: DWORD);
var
TT: DWORD;
begin
TT := GetTickCount();
while GetTickCount() - TT < DT do
Application.ProcessMessages;
end;