Listbox - odwrócenie elementów (lazarus)

Witam.

Mam do napisania program, który m.in. posortuje łańcuchy w komponencie Listbox. Chciałbym odwrócić posortowanego listboxa (od a do z). Jak się za to najlepiej zabrać? Próbowałem chociażby mniej więcej tak: (temp1 to tablica z elementami przepisanymi z listboxa)

   
      j := 0;
      rozm := length(temp1);
      for i := 1 to (rozm-1)  do
       begin
            temp2[i] := temp1[rozm-j];
            inc(j);
       end;

[przepisanie do listboxa]
Ale wychodzą w listboxie tylko jakieś krzaczki. Moglibyście mnie jakoś nakierować? Z góry dzięki.

var P,K:Integer;
var Str:String;
begin
  ListBox1.Sorted:=true;
  ListBox1.Sorted:=false;
  P:=0;
  K:=ListBox1.Items.Count;
  while P<K do
  begin
    ListBox1.Items.Exchange(P,K);
    Inc(P);
    Dec(K);
  end;
end;

Dzięki wielkie, działa elegancko. :)