[NumLock]

типа этого:

Код:

procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: String;
  var NumRedirect: Integer; var Handled: Boolean;
  var VMethod: TIdHTTPMethod);
var
  i: Integer;
  s: String;
begin
  for i:=0 to IdHTTP1.CookieManager.CookieCollection.Count-1 do
  begin
    s:=IdHTTP1.CookieManager.CookieCollection.Items[i].Domain;
    s:=IdHTTP1.CookieManager.CookieCollection.Items[i].CookieName;
    s:=IdHTTP1.CookieManager.CookieCollection.Items[i].Value;
  end;
end;