var

  orders : IObjectSet;

  order: IOrder;

  i : integer;

begin

  orders := ObjectManager.GetObjectSet(NW.Order);

  for I := 0 to orders.Count - 1 do

  begin

    order := orders[i] as TOrder;

    // ...

  end;

end;