Ustanowienie połączenie/ROZŁĄCZENIE

Witam. Mam problem. Znalazłem na 4programmers gotowce do łączenia i rozłączania modemu. Łączenie niby trudniejsze, a działa. Rozłączenie niestety nie działa.... ;/

Łączenie:

 // automatyczne nawiązanie połączenia
procedure Polacz;
var 
  dwConnectionTypes: DWORD; 
begin 
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + 
    INTERNET_CONNECTION_PROXY; 
  if not InternetGetConnectedState(@dwConnectionTypes, 0) then 
    //nie połaczony
    if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or 
      INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then 
    begin 
      // błąd
    end; 
end; 

Rozłączenie:

 
// automatyczne rozłączenie
procedure Rozlacz;
var 
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM;
  if InternetGetConnectedState(@dwConnectionTypes, 0) then 
    // połaczony
    InternetAutodialHangup(0);
end; 

Proszę o pomoc. Z góry dziękuje!