Wörter alphabetisch Sortieren!

[Moin]

Tach alle zusammen!

Ich soll für die Schule ein kleines Übungsprogramm schreiben, dass 30 Namen aus einer Memo alphabetisch sortiert. Das Programm startet auch, aber es hängt sich bei der Ausführung der entsprechenden Procedure auf.

Namen : array[0..29] of String;

Delphi-Quellcode:

procedure THF.Sortieren1Click(Sender: TObject);
   var i, k: Byte;
        Temp: string; // Temporäre Text Datei
begin

FOR i:=0 TO 29 DO
 Namen[i]:= Memo.Lines[i];

FOR i:=0 TO 28 DO
 BEGIN
   k:=0;
   Repeat
    If Namen[i,k]<> Namen[i+1,k] Then
     If Namen[i,k]> Namen[i+1,k]
     Then Begin
          temp:= Namen[i];
          Namen[i]:= Namen[i+1];
          Namen[i+1]:= temp;
          End;
   Until (Namen[i,k]<> Namen[i+1,k]);
   inc(k);
 END;

FOR i:=0 TO 29 DO
Memo.Lines[i]:= Namen[i];


end;

Ich nehme an dass es an "Namen[i,k]" hängt, ich möchte mit k den Buchstaben des Strings ansprechen!!

Danke für eure Mühen!