Memofeld sortieren, brache hilfe!

[eClips2k]

Hey,

Ich versuche den Inhalt eines Memefeldes zu sortieren, hier ein Besipiel des Inhalts:

1;Belletristik;Kempowski, Walter;Uns gehts ja noch gold;München;;dtv
2;Jugend;Pressler, Mirjam;Novemberkatzen;Weinheim;1986;Beltz & Gelberg

Nun mein Problem, ich möchte diese Liste nach Titeln sortieren. Mein bisheriger Code sieht so aus:

SQL-Code:

procedure TfMain.Image9Click(Sender: TObject);
var
   i   : Integer;
   sortiert,x,y   : String;
begin
  For i:=0 to Memo1.Lines.Count-1 do begin
     x:=Memo1.Lines[i];
     y:=Memo1.Lines[i+1];
      If x > y then
        begin
        sortiert:=Memo1.Lines[i];
        Memo1.Lines[i]:=Memo1.Lines[i+1];
        Memo1.Lines[i+1]:=sortiert;
        end;
      end;
end;

Das Problem ist so greift er nur auf die am Begin stehenden Zahlen zu, wie komm ich an dem an 4ter Stelle stehenden Titel ran?
Würde mich über schnelle Hilfe freuen

Gruß eCLips