1:

sortiere(memo1.lines)					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  StringListe: TStringList;
begin
  StringListe := TStringList.Create;
  //Irgend etwas eintragen
  StringListe.Sort;
  //Benutzen
  StringListe.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
Var Sl:TStringList;
begin
  //stringlist erzeugen
  SL:=TStringList.Create;
  try
    sl.Assign(memo1.Lines); //memo in Stringlist kopieren
    sl.Sort;                //sortieren
    Memo1.Lines.Assign(sl); //stringlist wieder in memo kopieren
  finally
    SL.free;  //stringliste freigeben
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure TForm1.Sort;
var i,j,temp : Integer;
    positionen : Array of Integer;
    tempList1, tempList2 : TStringList;
begin
  SetLength(positionen, ListBox1.Items.Count);

  for i:=0 TO ListBox1.Items.Count-1 do
    positionen[i] := i;

  For i := 1 to High(positionen) do
  For j := High(positionen) downto i do
  If ListBox1.Items[positionen[j]] < ListBox1.Items[positionen[j-1]] then
  Begin
    temp := positionen[j];
    positionen[j] := positionen[j-1];
    positionen[j-1] := Temp;
  end;

  tempList1 := TStringList.Create;
  tempList1.AddStrings(ListBox1.Items);

  tempList2 := TStringList.Create;
  tempList2.AddStrings(ListBox2.Items);

  ListBox1.Clear;
  ListBox2.Clear;
  for i:=0 to High(positionen) do
  begin
    ListBox1.Items.Add(tempList1[positionen[i]]);
    ListBox2.Items.Add(tempList2[positionen[i]]);
  end;
  tempList1.Free;
  tempList2.Free;
end;