implementation
{$R *.DFM}

function kapcsolat(lpdwFlags: LPDWORD;
dwReserved: DWORD): BOOL; stdcall; external 'wininet.dll' name 'InternetGetConnectedState';

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if kapcsolat(pdword(0),0)=false then
label1.Caption:='Nincs internet kapcsolat'
else
label1.Caption:='Van internet kapcsolat';
end;

Megjegyzés:
win2000, win98 -on megy a dolog, de minden olyan operációs rendszeren menni kelli, ahol a
wininet.dll fájl megtalálható.