function IsConnectedToInternet: Boolean;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes :=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;
Вот готовая функция.. Возвращает тру вслучае успеха, фолс наоборот, соотсветственно.
на борландовских сях только синтаксис будет другой. Проблем, это, я думаю, вызвать не должно.