[NumLock]

Код:

uses
  WinInet;

function GetInternetConnectedState: Boolean;
begin
  Result:=InternetCheckConnection('http://www.msftncsi.com/ncsi.txt', 1, 0);
end;