Como Verificar se está Conectado com a Internet | Delphi

Função para verificar se existe conexão com a internet com Delphi

uses WinInet;

Crie um botão:

procedure TForm1.Button1Click(Sender: TObject);
var
  Flags : Cardinal;
    begin
      if not InternetGetConnectedState(@Flags, 0) then
        // Não possui conexão com a Internet
        ShowMessage('Você não está conectado com a internet')
      else
        // Há conexão com a Internet
        ShowMessage('Você está conectado com a internet');
      end;
end;