[X-rem]

Я понял что у тебя не так)

Код:

begin
   Timer1.Enabled:=False;
try
     page1:=http.get('http://127.0.0.1:8080');
    if http.ResponseCode=200 then begin
    ...рабочий код..
    end else ShowMessage('Нету подключения');
except
   ...
   ShowMessage('Нету подключения [Error]');
   Label4.Caption :=IntToStr(http.ResponseCode);
   ...
   end;