Quicksort ist zu langsam?

[Quake]

Probier mal das hier

Delphi-Quellcode:

procedure QuickSort(l,r: integer);
var
  i,j: integer;
  TempChar: char;
begin
  i:=l;
  while i<r do
  begin
    j:=i;
    while j>l do
    begin
      if SortString[j]<SortString[j-1] then
      begin
        TempChar:=SortString[j];
        SortString[j]:=SortString[j-1];
        SortString[j-1]:=TempChar;
      end;
      dec(j);
    end;
    inc(i)
  end;
end;

Ich dachte immer das ist QuickSort !??!