[NumLock]

Второй этап проверки работы интернет - проверка работоспособности DNS.
Для этого можно попытаться определить IP-адрес хоста dns.msftncsi.com. Значение должно быть 131.107.255.255.
Примерно так:

Код:

uses
  WinSock,

function dns_msftncsi_com: Boolean;
var
  WSAData: TWSAData;
  HostEnt: PHostEnt;
begin
  WSAStartup(MakeWord(2, 2), WSAData);
  HostEnt:=gethostbyname('dns.msftncsi.com');
  Result:=(HostEnt<>nil) and (inet_ntoa(PInAddr(HostEnt^.h_addr_list^)^)='131.107.255.255');
  WSACleanup;
end;