چک کردن اتصال به اینترنت

سلام
چگونه میشه چک کرد که کامپیوتر به اینترنت وصل هست یا نه ؟
لطفا با ذکر مثال باشه بهتره

البته اگه سرچ می کردید زودتر به نتیجه می رسیدید؛ در ضمن فکر کنم این جور تاپیک ها رو نباید در این تالار نوشت.

این کد :
اول این رو به Uses اضافه کنید :

 WinInet

بعد این فانکشن رو تعریف کنید :

Function GetTemp : string;

Var

    tempdir : array [0..255] of char;

Begin

 Gettemppath(255 , tempdir);

 Result := strpas(tempdir);

End;

و در نهایت با این کد وضعیت اتصال به اینترنت رو تست کنید؛ روش استفاده :

procedure TForm1.Button1Click(Sender: TObject);

begin

 if ConnectedToInternet = true then

  ShowMessage('Connected')

 else

  ShowMessage('No Connect')

end;

اینم نمونه برنامه :