لطف کنید جوابهای بی مربوط ندید(قابل توجه آقای Hamid_Pak)......دوستان اگه اطلاعی از موضوع ندارن لطف کنند جواب کلی و بی مربوط ندن.....اما دوست عزیزمdkhatibi منم یه زمانی به موضوعی که شما مطرح کردید احتیاج شدیدی داشتم....خیلی این درو اون در زدم ولی نتیجه ای نگرفتم.بالاخره از یه روش غیر اصولی کارمو انجام دادم....به این صورت که از component webrowser استفاده کردم و یه سایت مثل یاهو رو داخلش باز کردم....یه کدی پیدا کردم که با اون کد میتونستم داخل محتوای صفحه وبی که درون webrowser بازشده بود به دنبال یه کلمه خاص بگردم اگه اون کلمه پیدا می شد به این معنا بود که توی شبکه lan منبه اینترنت متصل هستم اگه نه که اتصال ندارم....


function TForm1.SearchAndHighlightTextinIE(aText: string):boolean;
var
j:integer;
begin
for j:=0 to WebBrowser1.OleObject.Document.All.length-1 do
begin
if pos(aText,WebBrowser1.oleobject.document.all.item( j).innertext)<>0 then
Result:=true;
end;

end;

امیدوارم به کارت بیاد..........موفق باشید.