[Medio]Testar conectividade com internet

[FusioN]

Declare WinInet na Uses

Adcione 1 Button (Aba Standard) e Adcione o Code:

var 
   flags : DWORD; 
begin 
   // verifica se está conectado a internet usando a API do Windows, é preciso declarar a uses WinInet. 
   if not InternetGetConnectedState(@flags, 0) then 
         MessageBox(handle, 'Você não está conectado a internet! ', 'Atenção', mb_Ok + mb_IconWarning); 
end;

Creditos: Saulo Challout
Fonte: Active Delphi