проверка соединения с Интернет

[KWNlnc]

exec(GetEnv('COMSPEC'),'/c ping www.mail.ru > nul');
if  DosExitCode = 0 then ShowMessage('mail.ru online') else ShowMessage('mail.ru offline');

Общий смысл, что ping при удачном пинге ERRORLEVEL = 0 возвращает.

как реализовать проверку пинга и вывести соединение с интернетом?
просто на компе локальная сеть типа domolink или freedom

через простые коды он не отпередяет. пищет что не соединен. а на сомом деле соединен!