Не могу отловить исключения EIdSocketError

[bakanaev]

Добрый день. Не могу отловить исключения класса EIdSocketError.
Пример кода:

proceure post;
begin

 try
    PauseStop;
    Result := IdHTTP.POST(Url, Data);
    PauseStop;
  except
    on   E: Exception  do
    begin
      if E.ClassType = EIdSocketError then
      .....
    end;

end;

Собственно в коде вышел исключение не отлавливается, игнорится.

Пробовал еще так

proceure post;
begin
 try
    PauseStop;
    Result := IdHTTP.POST(Url, Data);
    PauseStop;
  except
    on   E: EIdSocketError  do
    begin 
      .....
    end;
  end;
end;

Результата то же нет.
Помогает только обвязать вызов процедуры post в свой try except end;, т.е

proceure post;
begin
 try
    PauseStop;
    Result := IdHTTP.POST(Url, Data);
    PauseStop;
  except
    on   E: EIdSocketError  do
    begin 
      .....
    end;
  end;
end;

procedure test;
begin
 try
   post;
  except
    on   E: Exception   do
    begin 
      ..... //тут уже все срабатывает 
    end;
  end;
end;

Вот такие вот дела, подскажите как быть! Delphi XE4, инди там новая думаю.
Спасибо

[Stilet]

Помогает только обвязать вызов процедуры post в свой try except end

Ну дык чем не подходит такой выход?

[bakanaev]

Сообщение от Stilet

Ну дык чем не подходит такой выход?

процедура post одна на всю программу, а функций которые ее юзают больше 20, не вариант в каждой писать обработку EIdSocketError

[bakanaev]

Нет ни у кого идей?))

[eval]

идея простая, не то исключение, у вас в пост ловите EIdSocketError, а выше просто Exception.

[bakanaev]

Сообщение от eval

идея простая, не то исключение, у вас в пост ловите EIdSocketError, а выше просто Exception.

Во втором примере, непосредственно EIdSocketError пробовал ловить. Толку 0

[eval]

так и я о том, нету его, вот и не ловите

[bakanaev]

Сообщение от eval

так и я о том, нету его, вот и не ловите

нет кого?

proceure post;
begin
 try
    PauseStop;
    Result := IdHTTP.POST(Url, Data);
    PauseStop;
  except
    on   E: EIdSocketError  do
    begin 
      .....
    end;
  end;
end;

[eval]

коня в польто
вы про что тут спрашиваете?

[bakanaev]

Сообщение от eval

вы про что тут спрашиваете?

Не могу отловить исключения класса EIdSocketError.

подскажите как быть!

что-то не понятно? И почему вы каждый раз придираетесь к моим темам и заданным в них вопросам??