Verificar conexão com a Internet

Bom dia!

Deu pau no meu HD e perdi todos meus arquivos e exemplos salvos.

No formulário principal do meu sistema, onde tem os menús e tals, tenho um campo (caixa de texto) chamado "conexaoInternet".

Gostaria que lá aparecesse "Acesso à internet" quando o pc estiver conectado ou "Sem acesso à internet" caso o pc estiver sem acesso à internet.

Obs.: Gostaria que a mensagem ficasse o tempo todo aparecendo sem precisar clicar em nenhum botão para ter a informação.

No meu outro sistema eu tinha isso, mas como informei, perdi tudo.

Obrigado!

Veja se ajuda;

Download

Saudações JPaulo!!!

Primeiramente muito obrigado pela presteza!

Funcionou, porém não atualiza instantaneamente. Tem alguma forma que, ao ligar/desligar a internet, ele reconheça e altere o status instantaneamente?

Para fazer isso tem de chamar a função no evento do cronômetro e deixar a correr segundo a segundo.

No evento "No timer" coloquei:

Call VerificaInternet

... e coloquei 100 no Intervalo do cronômetro, mas não resolveu..