в IdHTTP1WorkBegin запоминаешь в глобальной переменной значение GetTickCount
в IdHTTP1Work высчитываешь разницу между текущим GetTickCount и запомненным. делишь AWorkCount на эту разницу и получаешь среднюю скорость закачки в байт/мс (!) умножаешь на 1000 и делишь на 1024 получаешь в кб/с (надеюсь я не напутал что-то
)
получить мгновенную скорость немного сложнее, но по похожему принципу.