[Alegun]

Как навязывают проверять в майкрософт (для D7)

Код:

function Form.IsConnect: boolean;
var
 http: TIdHTTP;
begin
 http:= TIdHTTP.Create(Self);
 try
  http.Get('http://www.msftncsi.com/ncsi.txt');
  if http.ResponseCode = 200 then 
   Result:= true;
 except
  Result:= false;
  end;
 http.Free;
end;

под виндой работает без ошипок