Para los que necesiten detectar Internet.
Código:
function IsConnected: Boolean;
var
ConnectedState: Integer;
begin
ConnectedState := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@ConnectedState, 0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsConnected = False then Panel1.Caption :='You are not connected to internet'
else
panel1.Caption :='You are connected to internet';
end;