Sort the list relative to the Phase field of the TMarkRecord in ascending order.
procedure SortPhase;
public