t := timeGetTime;
While timeGetTime-t > 2000 do
begin
　Application.ProcessMessages;
　Sleep(1);
end;



何やってんの、コイツ