http := TIdHTTP.Create(nil);
  http.ConnectTimeout := 30000;
  http.ReadTimeout := 30000;
  html := '';
  try 
    http.Head(url);
  finally
    ResponseCode := http.ResponseCode;
    ResponseHead := http.ResponseText;
    http.Free;
  end;