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

procedure TForm1.N25Click(Sender: TObject);
var
  i, j, m, w: integer;
  s: string;
begin
  m := ListBox1.Items.Count-1;
  for i := 0 to m - 1 do
    for j := 0 to m - 1 do
    begin
      for w := 0 to ListBox1.Items[j].Length - 1 do
        if ord(ListBox1.Items[j][w]) > ord(ListBox1.Items[j + 1][w]) then
        begin
          s := ListBox1.Items[j];
          ListBox1.Items[j] := ListBox1.Items[j + 1];
          ListBox1.Items[j + 1] := s;
          break;
        end;
    end;
end;

procedure TForm1.N25Click(Sender: TObject);
var
  i, ind: integer;
  s: string;
begin
  for i := 0 to ListBox1.Items.Count - 1 do
    ListBox1.Items[i] := ListBox1.Items[i] + '|' + ListBox2.Items[i];
  ListBox1.Sorted := true;
  for i := 0 to ListBox1.Items.Count - 1 do
  begin
    ind := ListBox1.Items[i].IndexOf('|');
    ListBox2.Items[i] := copy(ListBox1.Items[i], ind,
      ListBox1.Items.Count - ind);
    s:= ListBox1.Items[i];
    Delete(s, ind, ListBox1.Items.Count-ind);
    ListBox1.Items[i]:=s;
  end;
end;

Insert(ListBox1.Items[i],ListBox2.Items[i],ind);

procedure SortLists(Alst1, Alst2: TListBox);
var i: integer;
begin
 with TStringList.Create do
  begin
   for i:=0 to Alst1.Count-1 do  Add( Alst1.Items[I] + '=' + Alst2.Items[I] );
   Sorted := True;
   for i:=0 to Pred(Count) do
    begin
     Alst1.Items[I] := Names[I];
     Alst2.Items[I] := ValueFromIndex[I];
    end; Free;
  end;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
 SortLists(lst1, lst2); // по первому списку
 //SortLists(lst2, lst1); // по второму списку
end;