Verificando a conexão de Internet via Delphi
Para verificar a conexão de Internet via Delphi, siga os seguintes procedimentos:
Inclua um componente TCP no Form, e digite o código:
if (TCP1.LocalIP = ‘0.0.0.0’ or TCP1.LocalIP = ‘127.0.0.1’) then
ShowMessage(‘Computador não está conectado na Internet’)
else
ShowMessage(‘Computado conectado na Internet’)