Zitat von
St.Pauli:
und was ist, wenn du ein Programm schreibst, das prüft, ob eine Verbindung besteht, und wenn nicht, eine gleich wieder herstellt?
Das kann ich auch ganz einfach hiermit machen:
Delphi-Quellcode:
uses WinInet;
function IsOnline: boolean;
begin
result:=InternetGetConnectedState(nil, 0);
end;
Quelle: 
http://dsdt.info