Procedure Untuk Mengecek Status Koneksi Internet

.
.
.
Uses WinInet
.
.
.
procedure CheckConnection;
var
dwFlags: DWORD;
begin
if InternetGetConnectedState(@dwFlags, 0) then begin
   if (dwFlags and INTERNET_CONNECTION_MODEM)=INTERNET_CONNECTION_MODEM then
      ShowMessage('Koneksi Internet Via Modem')
   else if (dwFlags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
      ShowMessage('Koneksi Internet Via LAN')
   else if (dwFlags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
      ShowMessage('Koneksi Internet Via Proxy')
   else if (dwFlags and INTERNET_CONNECTION_MODEM_BUSY) =
   INTERNET_CONNECTION_MODEM_BUSY then
     ShowMessage('Modem Sedang Sibuk');
   end else
   ShowMessage('Offline');
end;


//Cara Memanggil Procedurenya sbb :

procedure TForm1.Button1Click(Sender: TObject);
begin
   CheckConnection;
end;