Приостановить поток менее чем на одну миллисекунду

В тестовом приложении для обмена сообщениями, поток производителя должен быть ограничен, чтобы избежать переполнения сервера.

Поскольку скорость передачи составляет около 25000) сообщений в секунду (40 микросекунд на сообщение), задержка, вызванная Sleep (1), будет слишком большой.

Как заставить поток спать меньше миллисекунды в Windows содержит некоторую информацию, относящуюся к Windows API. есть ли фрагмент кода, класс или библиотека для Delphi?

Следуя ответу Бенса, я обнаружил, что Sleep с разными значениями ниже 15 также дает разные скорости передачи (Windows Vista):

Sleep (1) после каждых 20 сообщений:

00:02 tx/rx 25740/3705 12831/1846 msgs/sec (77/541 microsecs/msg)
00:04 tx/rx 53101/7405 13255/1848 msgs/sec (75/541 microsecs/msg)
00:06 tx/rx 79640/11288 13260/1879 msgs/sec (75/532 microsecs/msg)
00:08 tx/rx 104520/14562 13055/1818 msgs/sec (76/550 microsecs/msg)
00:10 tx/rx 130760/18829 13066/1881 msgs/sec (76/531 microsecs/msg)

Sleep (5) после каждых 20 сообщений:

00:02 tx/rx 7640/3622 3812/1807 msgs/sec (262/553 microsecs/msg)
00:04 tx/rx 14660/10794 3661/2695 msgs/sec (273/371 microsecs/msg)
00:06 tx/rx 21480/18171 3577/3026 msgs/sec (279/330 microsecs/msg)
00:08 tx/rx 28140/25642 3515/3203 msgs/sec (284/312 microsecs/msg)
00:10 tx/rx 34980/32692 3496/3267 msgs/sec (286/306 microsecs/msg)

Это было неожиданно после прочтения комментария о нижнем пределе для ожидания занятости

И значениях без регулирования

00:02 tx/rx 44065/494 21988/246 msgs/sec (45/4065 microsecs/msg)
00:04 tx/rx 90493/756 22595/188 msgs/sec (44/5319 microsecs/msg)
00:06 tx/rx 142982/907 23810/151 msgs/sec (41/6622 microsecs/msg)
00:08 tx/rx 192562/1144 24055/142 msgs/sec (41/7042 microsecs/msg)
00:10 tx/rx 237294/1395 23717/139 msgs/sec (42/7194 microsecs/msg)