var

  orders : IObjectSet;

  orders2 : IObjectSet;

  order : IOrder;

begin

  // from database

  orders := ObjectManager.GetObjectSet(NW.Order.EmployeeID, 4);

  // get sub set

  orders2 := orders.GetSubSet(NW.Order.ShipVia, 3);

  // find first

  order := orders.Find(NW.Order.ShipVia, 1) as TOrder;

end;