Kann man diese Funktion noch weiter optimieren?

[luke2]

naja Danke erstmal, ich glaube sogar, dass die Explode() Funktion etwas schneller ist.
funktioniert leider nur mit Delphi7, aber nicht mit Delphi2009.