∧,,∧　　　　　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　 ミ,, ﾟДﾟ彡 　　　　＜　 連続で呼び出すと変になるけど...
　　　　 〃つ＿つ/ ￣￣￣/＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　〜ﾐ,,, ,,|＼ ./　ﾚ ｯ ｼ /
　　　　　　　'＼/.======./
　　　　　　　　　 ￣￣￣
procedure SleepProcessMessages(Milliseconds: Cardinal);
var
　StartTime, NowTime: Cardinal;
begin
　StartTime := GetTickCount;
　while true do
　begin
　　NowTime := GetTickCount;
　　if Milliseconds <= (NowTime - StartTime) then
　　　Break;
　　Application.ProcessMessages;
　end;
end;