procedure SortOn

procedure SortOn(FieldNames: string);