Array of Array of string Quicksort

[cherry]

Hallo Zusammen...

Ich suche verzweifelt nach einer Funktion die ein Array of Array of string Alphabetisch sortiert. Und zwar möchte ich angeben können nach welcher Spalte.
Ein aufruf könnte dann z.b. so aussehen.

Delphi-Quellcode:

type
  TStringArray2 = array of array of string;

var
  MyArr: TStringArray2;

  Quicksort(MyArr, 0, Length(MyArr), 2);

Ich hab HIER! etwas gefunden, leider bringe ich das nicht zum laufen. An der Stelle A[L]:=A[R]; gibts dann immer eine Zugriffsverletzung.

Danke.