обработка ошибки 404 idhttp

[s1s1s1]

procedure TR.Execute;
var
Lo: TStrings;
Res: TStringStream;http:tidhttp;
begin try
http:=tidhttp.Create; 
HTTP.Post(edit2.text,Lo,Res);
except
  on pe: EIdHTTPProtocolException do begin
      if pe.ErrorCode <> 404 then
ShowMessage(pe.Message);end;

все это в потоке, ошибка не появляется ,но
не показывает сообщение.

[Shouldercannon]

  except
    on E: EIdHTTPProtocolException do
    begin
      if E.ReplyErrorCode = 404 then ShowMessage(E.Message);
    end;
  end;

[s1s1s1]

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

  except
    on E: EIdHTTPProtocolException do
    begin
      if E.ReplyErrorCode = 404 then ShowMessage(E.Message);
    end;
  end;

тоже самое

нужно показать просто сообщение

procedure TR.Execute;
var
Lo: TStrings;
Res: TStringStream;http:tidhttp;
begin try
http:=tidhttp.Create; 
HTTP.Post(edit2.text,Lo,Res);
except  
ShowMessage('11');end;

не хочет

[Shouldercannon]

Удалено. Дублекат.

[Shouldercannon]

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

тоже самое

нужно показать просто сообщение

procedure TR.Execute;
var
Lo: TStrings;
Res: TStringStream;http:tidhttp;
begin try
http:=tidhttp.Create; 
HTTP.Post(edit2.text,Lo,Res);
except  
ShowMessage('11');end;

не хочет

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  try
    s := IdHTTP1.Get('http://yandex.ru/1.htm');
  except
    on E: EIdHTTPProtocolException do
    begin
      if E.ReplyErrorCode = 404 then ShowMessage(E.Message);
    end;
  end;
end;

С http://yandex.ru/1.htm 100% работает. Заметил, что код ошибки зависит от сайта, http://google.ru/1.htm показывает ошибку 301, но http://www.google.ru/1.htm ошибка 404.

Ошибка есть и ShowMessage 11 показывается.

[s1s1s1]

хорошо,а в чем дело может быть страница вообще есть ,но idhttp выдает ошибку 404

[Shouldercannon]

Возможно есть перенаправление на другую страницу.

[s1s1s1]

как сделать, чтобы в исключении очишалось мемо подскажите

procedure TR.Execute;
var
Lo: TStrings;
Res: TStringStream;http:tidhttp;
begin try
http:=tidhttp.Create; 
HTTP.Post(edit2.text,Lo,Res);
except  
memo1.clear;end;

[Shouldercannon]

Вы сами ответили на свой вопрос (код)

[s1s1s1]

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

Вы сами ответили на свой вопрос (код)

в то то и дело ,что не очишает