Fortschrittsanzeige beim Sortieren

[efknarf]

Hallo, ihr fleißigen Helfer,

mich beschäftigt seit einiger Zeit folgendes Problem. Beim Sortiern sehr großer Datenmengen soll eine Fortschrittsanzeige erscheinen. Während beim Insertionssort die Fortschrittsanzeige relativ einfach initialisiert werden kann

Delphi-Quellcode:

//Fortschrittsanzeige initialisieren
Bar.Min:=0;
Bar.Max:=ItemCount;
Bar.Step:=100;

//und bei Aktualisierung
Bar.Position:=ItemIndex;

//bzw. mit Schritten
Bar.StepBy;

und auch wunderbar funzt, weiß ich beim Quicksort leider nicht, wo ich die erforderlichen Informationen herholen soll.
Wie kann ich nun also die dafür notwendigen Daten, also Bar.Min, Bar.Max, Bar.Position usw. ermitteln?

Danke schon mal im Voraus

Frank