Считывание количества редиректов

[Frostmourne]

Можно ли каким-либо образом посчитать количество редиректов после запроса?
Например:
IdHTTP1.Get('site.com');
a:=количество редиректов
Memo1.Lines.Add('Количество редиректов:'+a);

[Delphi_ProGer]

Событие OnRedirect:

procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: String;
  var NumRedirect: Integer; var Handled: Boolean;
  var VMethod: TIdHTTPMethod);
begin
  Memo1.Lines.Add('Количество редиректов:'+IntToStr(NumRedirect));
end;