Activity for Fast stable sorting in Delphi

1