Delphi memo сортировка по алфавиту

[апрол]

Здравствуйте, пушу програмку тел. справочник.
Даные про каждого человека записываются в отдельную строчку ФИО, улица, дом, телефон.
Не могу организовать сортировку по алфовиту, вернее реализовал сортировку, но сортируются вся информация по алфавиту а не рядки

flag:=true;
  while flag do
  begin
    flag:=false;
    for i := 0 to Memo1.Lines.Count-2 do
      begin
        if Memo1.Lines[i]>Memo1.Lines[i+1] then
          begin
            str:=Memo1.Lines[i];
            Memo1.Lines[i]:=Memo1.Lines[i+1];
            Memo1.Lines[i+1]:=str;
            flag:=true;

подскажите что я сделал не правильно

[type_Oleg]

А так пробовал?

var sL:TStringList;
begin
 sL:=TStringList.Create;
 sL.Assign(Memo1.Lines);
 sL.Sorted:=True;
 Memo1.Lines.Assign(sL);
 sL.Free;

Правда, я не понял, что значит вся информация