Que yo sepa no hay un método así para los TStrings (los items de los TListBox son del tipo TStrings).
Lo único que te puedo recomendar es este procedimiento que acabo de hacer para tu pregunta:
Código Delphi
[-]
procedure OrdenNumerico(var L:TListBox; Menor_A_Mayor:boolean = True);
var
I,J,NumI,NumJ,Indice:Integer;
Temp:String;
begin
for I := 0 to L.Count - 1 do begin
Indice:=I;
for J := I+1 to L.Count - 1 do begin
NumI:=StrToInt(L.Items.Strings[Indice]);
NumJ:=StrToINt(L.Items.Strings[J]);
case Menor_A_Mayor of
TRUE:
begin
if (NumJ < NumI) then
Indice:=J;
end;
FALSE:
begin
if (NumJ > NumI) then
Indice:=J;
end;
end; end; Temp:=L.Items.Strings[i];
L.Items.Strings[i]:=L.Items.Strings[Indice];
L.Items.Strings[Indice]:=Temp;
end; end;
Solamente ordena números. Si tu TListBox contiene palabras, va a tirar error.
Le mandás como primer argumento el TListBox que quieras ordenar (ListBox1, ListaNumeros, como se llame) y como segundo argumento le mandás TRUE si querés que los ordene de menor a mayor (ascendente) o FALSE si querés que los ordene de mayor a menor (descendente).
Saludos!