Зависание программы при отсутствии подключения

[dolphin705]

Здравствуйте

Пытаюсь прочитать конфиг из интернета

program _try;

uses
  windows,
  wininet;

var
 p : hinternet;
 h : hinternet;
 r : HINTERNET;
 Size,RSize : Cardinal;
 buffer : array[0..300] of char;
 bufLen,I : DWORD;

begin
 h:= InternetOpenA('iexplore',1,nil,nil,0);
 if h<> nil then
 p:= InternetConnectA(h,'******.narod.ru',INTERNET_DEFAULT_HTTP_PORT,'anonymous',nil,INTERNET_SERVICE_HTTP,0,0); //INTERNET_FLAG_PASSIVE
 if p<>nil then
 r:=HttpOpenRequestA(p,nil,'config.cfg',nil,nil,nil,INTERNET_FLAG_PRAGMA_NOCACHE or INTERNET_FLAG_RELOAD, 0);
 if r<>nil then
 if not HttpSendRequestA(r,nil,0,nil,0) then
 begin
    if r <> nil then InternetCloseHandle(r);
    if p <> nil then InternetCloseHandle(p);
    if h <> nil then InternetCloseHandle(h);
    exit;
  end;
   bufLen:=4;
   I:=0;
   if HttpQueryInfoA(r,HTTP_QUERY_CONTENT_LENGTH or HTTP_QUERY_FLAG_NUMBER,@size,BufLen,I) then
   begin
     InternetReadFile(r,@Buffer,size,RSize);
     //ShowMessage(buffer);
     InternetCloseHandle(r);
     InternetCloseHandle(p);
     InternetCloseHandle(h);
   end;
end.

почему когда впн соединения нет (и соответственно нет соединения с интернет) но есть локалка то код доходит до HttpSendRequestA и программа зависает или находится как будто на процедуре слип??