1:

if IdIPWatch.IsOnline then ...........                    

1:
2:
3:
4:
5:
6:

if idipwatch1.isonline then 
 begin
  label1.caption:='online'; 
 end else begin
               label1.cation1:='offline';
              end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

uses WinInet;

procedure TForm1.Button1Click(Sender: TObject);
begin
  If  InternetGetConnectedState(nil, 0) then
    Caption := 'Online'
  else
    Caption:='Offline';
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  dwResult : cardinal; 
begin 
  dwResult := 0; 
  if Internetgetconnectedstate(@dwResult,0) then 
    showmessage('ONLINE') 
  else 
    ShowMessage('OFFLINE'); 
end;                    

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

function ConnectWWW : Boolean; 
var
  dwConnectionTypes: DWORD; 
begin   
  result := true;   
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN 
    + INTERNET_CONNECTION_PROXY;    
  // if not InternetGetConnectedState(@dwConnectionTypes, 0) then     
  // not connected      
  if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or       
    INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) 
  then     
    begin       
      // error       
      result := false;     
    end; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Procedure DisConnectWWW; 
var   
  dwConnectionTypes: DWORD; 
begin    
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN 
    + NTERNET_CONNECTION_PROXY;    
  if InternetGetConnectedState(@dwConnectionTypes, 0) then     
  // connected     
  InternetAutodialHangup(0); 
end;