Kuck mal hier, hab ich über die Suche gefunden:
Thread in der DP. Vor allem der Pseudocode aus Beitrag #2 scheint interessant, du müsstest ihn lediglich in "richtigen" Delphi-Quellcode übersetzen.
Vielleicht hilft dir das ja schonmal weiter oder gibt dir zumindest einen kleinen Denkanstoß.
mfG
Patti