var

  query : IDeleteQuery;

begin

  query := TDeleteQuery.Create;

  query

    .DeleteFrom(NW.Order)

    .Where( OQL

      .Criteria(NW.Order.CustomerID).EQ('ATEST')

      .And_(NW.Order.ShipVia).EQ(1) );

  ObjectManager.ExecuteCommand(query);

end;