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

procedure ListIntegerSort (List : TStrings);
var i,j : Integer;
    tempString : String;
begin
  for i := 0 to List.Count -1 do
    for j := 0 to List.Count -1 do
      if StrToInt(List[j]) >  StrToInt(List[i])then
      begin
        tempString := List[j];
        List[j] := List[i];
        List[i] := tempString
      end;
end;

//Aufruf ereignisgesteuert (z.Bsp. beim Hinzufügen eines Items)mit z.Bsp:
ListIntegerSort(ListBox1.Items);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure ListIntegerSort (List : TStrings);
var
    i, j, best, best2 : integer;
begin
    for i := 0 to List.Count -1 do
    begin
        best := StrToInt(List[i]);
        best2 := i;
        for j := i + 1 to List.Count -1 do
        begin
            if (StrToInt(List[j]) < best) Then
            begin
                best := StrToInt(List[j]);
                best2 := j;
            end;
        end;
        List[best2] := List[i];
        List[i] := inttostr(best);
    end;
end;