Fórum InternetHangUp não funciona! #143502

Estou usando a uses WinInet para me conectar e desconectar da net. Num botão eu faço e no outro eu desfaço a conex, só que... a conexão é feita normalmente mas não consigo desconectar! o que tá errado?

uses WinInet;

procedure TForm1.botão1(sender: TObject);
begin
aqui faço a conexão
end;

procedure TForm1.botão2(sender: TObject);
begin
InternetHangUp(0,0); //aqui deveria desconectar mas não funciona
end;

Alguém pode me ajudar?