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

function TSortedIntegerlist.Add(Value: Integer): Integer;
var
  i: integer;
begin
  Result:=-1;

  //Nur Wert hinzufügen, wenn Dubletten erlaubt oder Wert nicht vorhanden
  if (FAcceptDuplicates) or (IndexByValue(Value)=-1) then
    Result:=FList.Add(Pointer(Value));

  //Einsortieren
  While (Result>0) and (Self[Result]<Self[Result-1]) do
  begin
    //Werte tauschen, sodaß neu eingefügter Wert nach vorne wandert
    i:=Self[Result-1];
    Self[Result-1]:=Self[Result];
    Self[Result]:=i;
    //Position ist nach Tausch weiter vorne
    Dec(Result);
  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:

function TYearBox.FillBox: boolean;
var
  lSortedIntegerList: TSortedIntegerlist;
  lIx: integer;
begin
  result := false;
  try
    cbBox.Properties.Items.BeginUpdate;
    cbBox.Properties.Items.Clear;
    lSortedIntegerList := TSortedIntegerlist.Create;
    lSortedIntegerList.Clear;
    try
      DoOpenSQL(qFilter, fSQL);
      while not qFilter.EOF do begin
        // Sortierung der Integerwerte ASC
        lSortedIntegerList.Add(qFilter.FieldByName(fValueField).AsInteger);
        qFilter.Next;
      end;

      for lIx := 0 to lSortedIntegerList.Count-1 do begin
        cbBox.Properties.Items.Add(IntToStr(lSortedIntegerList.Items[lIx]));
      end;

      result := true;
    except
      on E:Exception do begin
          ShowErrMsg(Format(rsFastBoxError, [lblDescription.Caption, fSQL, '', E.Message]));
      end;
    end;
  finally
    cbBox.Properties.Items.EndUpdate;
    if assigned(lSortedIntegerList) then FreeAndNil(lSortedIntegerList);
  end;
end;					

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

function TSortedIntegerlist.Add(Value: Integer): Integer;
begin
  Result:=-1;
...
  While (Result>0) and (Self[Result]<Self[Result-1]) do // <<<<< --- Mööööööp
...
end;