Chequear conexión a internet

[jachguate]

Solo una acotación.

Si haces un

try
  mioperacion;
except
end;

no te dejará salir ninguna exepcion, y puede que la operación falle por algo que no está bajo tu control, por eso es buena practica ser mas específico acerca del error que se quiere tratar, para dejar que la maquinaria de delphi se encargue de los demás.

seria mas correcto hacer:

try
  MiOperacion;
except
  on ElErrorQueYoControlo do
    AlgunCodigoONoHacerNadaParaMatarLaExcepcion;
end;

Hasta luego.