بررسی وصل بودن به اینترنت در دلفی

[هاکام]

با سلام در زبان برنامه نویسی دلفی از کجا بدونم که ایا سیستم طرف به اینترنت وصل هستش یا نه با تشکر لطفا نمونه کد رو هم قرار دهید.

[amir]

کد گرفتن پینگ از طریق کامپیوننت idiCmpClient رو برات میزارم ازش میتونی استفاده کنی

idiCmpClient1.Host:='127.0.0.1';Application.Proces  sMessages;
idiCmpClient1.Ping;
if idiCmpClient1.ReplyStatus.BytesReceived <= 0 then
   Edit1.text:='<No Connected>'
else
  Edit1.text:='<Yes Connected>';