Lanzar aplicacion al detectar conexion a internet

[JOSEPE]

Para los que necesiten detectar Internet.

function IsConnected: Boolean;
var
 ConnectedState: Integer;
begin
 ConnectedState := INTERNET_CONNECTION_MODEM +   INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
 Result := InternetGetConnectedState(@ConnectedState, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
	  if IsConnected = False then Panel1.Caption :='You are not connected to internet'
	  else
	  panel1.Caption :='You are connected to internet';
   end;