Как проверить соединение с Интернетом

[Mafik2121]

Хороший исходник http://thedelphi.ru/source/proverka-...oedineniya.php

[QunneD]

  if not (InternetCheckConnection('http://microsoft.com', $00000001, 0) = true) then
  begin
    MessageBox(0, 'No internet connection enabled.', 'Error', $00000010);
  end
  else
  begin
    MessageBox(0, 'Internet connection is working.', 'Notification', $00000040);
  end;

Как по мне дак наилучший вариант используемый мелкософцами.