Sos! Мне нужен реальный код!

Windows XP. Delphi 7. Internet.

Мне нужен реальный код, чтобы проверять Интернет соединение “Connected”, “Not Connected” или “Disconnected”! Windows XP. Delphi 7. Internet.
Что-то вроде етаго, но это дрянь в WinXP-е не работает:

function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';

procedure TForm1.Button1Click(Sender: TObject);
begin
if InetIsOffline(0) then
showMessage('This computer is not connected to Internet!')
else
showMessage('You are connected to Internet!');
end;