Я понял что у тебя не так)
Код:
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;