Добрый день. Утилита iperf3 даёт тест 1Гб/сек. Покопался в её коде и решил сделать также. В Lazarus один в один не получилось сделать. В итоге, моё тест даёт не более 0.35Гб/сек. Что я делаю не так?

Как протестировать. Программа запускается на двух компах.

Запуск сервера. Вкладка «TabSheet_client», установить SpinEdit_client_num_cycle 1000 Вкладка «TabSheet_server», кнопка «Запустить».

Запуск клиента. Вкладка «TabSheet_client», установить SpinEdit_client_num_cycle 1000 Вкладка «TabSheet_client», кнопка Buttonc_class_client_create

Архив проекта здесь: https://transfiles.ru/pe2w7