HTTP запрос, ошибка

[Nice42ru]

     try
      Info:= HTTP.Post('http://xxxxxx.ru', data);
  finally
if  pos('new',info)>0 then rez:= 1

else if pos('not', info)>0 then rez:= -2

else if pos('/',info)>0 then rez:= 0

else if pos('lt',info)>0 then rez:= -1

else rez:= -1
     end;
     HTTP.Free;
     data.Free;

Вот пользуюсь вот таким кодом но есть одна проблема, мне нужно поймать ошибку (HTTP/1.1 500 Internal Server Error) и указать что сделать в том случае если она появляется, подскажите пожалуйсто!

[dmitriegorovih]

я думаю finally здесь не нужно потому что он и так будет ставить слип лучше поставьте except end; на случай если ошибка будет выполняться код заключённый в except end; допишите ещё GetLastError он выдаст код ошибки и по нему будете отпрыгивать.