Como saber se estou conectado a internet

Como descobrir se você esta conectado com a Internet?
1º) Você deve acrescentar um componente NMFTP (da paleta FastNet).
2º) Insira o seguinte código no evento OnShow do formulário.
If (NMFtp1.GetLocalAddress <> ´0,0,0,0´) Then ShowMessage(´Você não está conectado!´) Else ShowMessage(´Você está conectado!´);
3º) Execute o programa e veja o resultado.

Uses WinInet;


function InternetConectada: Boolean;
var
ConnectedState : DWord;
begin
InternetGetConnectedState(@ConnectedState, 0);
if (INTERNET_CONNECTION_LAN and ConnectedState = INTERNET_CONNECTION_LAN) or
(INTERNET_CONNECTION_MODEM and ConnectedState = INTERNET_CONNECTION_MODEM) or
(INTERNET_CONNECTION_PROXY and ConnectedState = INTERNET_CONNECTION_PROXY) then
begin
Result := True;
end
else
begin
Result := False;
end;
end;