Capturar a velocidade de conexão

Alguém sabe como capturar a velocidade de conexão do dial-up ? Uso o Delphi 7.0.