[harbor]

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

Код:

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;

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

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