1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function IsOnline: boolean;
begin
  result:=InternetGetConnectedState(nil, 0);
end;

function Connect: Boolean;
begin
  Result:=false;
  if not IsOnline then Result:=InternetAutodial(internet_autodial_force_unattended,Application.Handle);
end;

function Disconnect: Boolean;
begin
  Result:=false;
  if IsOnline then result:=InternetAutodialHangup(0);
end;