Delphi dicas

Testa conectividade com internet (está funciona, testado até no windows vista)

Uses WinInet;



....

....



var

flags : DWORD;

begin

        // verifica se está conectado a internet usando a API do Windows, é preciso declarar a uses WinInet.

        if not InternetGetConnectedState(@flags, 0) then

        MessageBox(handle, 'Você não está conectado a internet! ', 'Atenção', mb_Ok + mb_IconWarning);

end;