[Сорокин_Роман]

Для получения текста html страницы использую метод get класса TIdHttp. Как сделать так, чтобы в случае, если данные не принимаются n миллисекунд, TIdHttp бросал получать данные и пытался заново установить соединение. Пытался использовать вот так:

Код:

function GetListLetter_s(url: string; http:TIdHTTP):TStringList;
  var
    s: string;
begin
  http.ReadTimeout := 3000;
  repeat
    try
      s := http.Get(url);
    except
      http.Disconnect;
      Result := GetListLetter_s(url, http);
    end;
    sleep(1000);
  until pos('Аква', s) = 0;
  Result := StrToList(s);
end;

Но:
1. Исключение выдаётся даже если соединение успешно и данные качаются.
2. Почему-то после обработки except ЭТА функция выполняется дальше, а все остальные функции, с ней связанные, экстренно завершаются (в т.ч. StrToList(s). Сразу, не исполняя begin переходит к end