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:

TKeyObjectListItem = packed record
  obj, key: Pointer;
end;
PKeyObjectListItem = ^TKeyObjectListItem; 

function TKeyObjectList.InsertItem(const aMin, aMax: Integer; const aKey: K; const aObject: T): Integer;
var
  i, compare: Integer;
  p: PKeyObjectListItem;
begin
  if aMin <= aMax then begin
    i := aMin + Trunc((aMax - aMin) / 2);
    compare := CompareKeys(aKey, K(PKeyObjectListItem(fList[i])^.key));
    if (compare = 0) then begin
      raise EKeyObjectList.Create('key already in list');
    end else if (compare < 0) then
      result := InsertItem(aMin, i-1, aKey, aObject)
    else if (compare > 0) then
      result := InsertItem(i+1, aMax, aKey, aObject);
  end else begin
    new(p);
    p^.obj := aObject;
    p^.key := Pointer(aKey);
    fList.Insert(aMin, p);
    result := aMin;
  end;
end;                    

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

new(p);
p^.obj := aObject;
new(^K(p^.key));
(^K(p^.key))^ := aKey;
fList.Insert(aMin, p);
result := aMin;                    

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

type
  generic TKeyObjectList<T, K> = class(TObject)

    type
      TKeyObjectListItem = packed record
        obj: T;
        key: K;
      end;
      PKeyObjectListItem = ^TKeyObjectListItem;

  private
    fList: TList; 
  //[...]