Hier eine Implementation vom Skew Algorithmus ( suffix array) , welcher das Erstellen (sortieren) der Suffixe in linearer Zeit bewältigt ( wurde erst 2003 "erfunden" )
Wenn Du es mal in Delphi umgesetzt haben solltest, dann kannst Dich ja mal melden
http://www.informatik.hu-berlin.de/~weese/files/skew/
Gruß stoxx