Bubble Sort ist für 400 Einträge völlig ausreichend. Das Problem, wieso es mit einer ListBox so langsam erscheint ist, daß die Operationen um die Position einzelner Strings innerhalb der Listbox zu verändern recht langsam ist, da die UI bei jeder Operation upgedated wird. Entsprechend benutz BeginUpdate und EndUpdate.
Ansonsten benutzt Delphi in so ziemlich allen
VCL Komponenten, die sortieren können, QuickSort.