Sortieren von Buchstaben in einer Listbox

[hhhkkkaaa]

Hallo!
Also ich hab ein Sortierprogramm für eine Listbox mit integer Zahlen geschrieben,und möchte das jetzt auf einen String übertragen. Also eine Listbox mit Buchstaben, die dann sortiert wird.
Ich weiß, dass man das gleich auf sorted=true stellen kann, ich benutz aber verschiedene Sortiermethoden und will die geschwindigkeiten vergleichen können und sowas.
So, Problem: es werden nur die ersten Buchstaben, also alle 'a' "sortiert" angezeigt.
Ich hab nicht so viel mit strings am Hut: ist ansicomparestr das richtige hier?
hier mein Versuch:

Delphi-Quellcode:

var i, j: integer; Merke : string; 
begin
   i:=2;
   while i < Laenge do
   begin
      i:=i+1;
      Merke:= Zahl[i]; //einen Buchstaben merken
      j:= i;
       while ((j > 1)and (ansicomparestr(Zahl[j-1], Merke)> 0 )) do  // die beide Buchstaben vergleichen
       begin
       // Beide Buchstaben miteinader vertauschen
          Zahl[j] := Zahl[j-1];
          j := j-1;
       end;
       //Gemerkten Buchstaben auf korrekten Platz setzen
       Zahl[j] := Merke;
   end;

Zahl[] ist eig Buchstabe []... muss ich noch ändern


Danke schonmal!