[harbor]

есть код примерно так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

http:TidHttp; .... procedure TForm1.Timer1Timer(Sender: TObject); var s1,s2,s3 :string; i, k :integer;   begin    Timer1.Enabled:=true; try      page1:=http.get('http://127.0.0.1:8080');     if http.ResponseCode=200 then     ...рабочий код.. except    ...    Label4.Caption :=IntToStr(http.ResponseCode);    ...    end;

так вот, пока локальный сервер запущен условие срабатывает нормально
потом сервер выключаю и он недоступен, условие не срабатывает
когда снова включаю сервер, у меня это условие уже не работает, то есть рабочий код не исполняется, хотя сервер доступен.

в чем загвоздка не ясно
процедура таймера запускается от кнопки на форме