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:
35:
36:
37:

var
  SL: TStringList;
  NextID: Integer;

  function GetNextID: TObject;
  begin
    Result := TObject(NextID);
    Inc(NextID);
  end;

  procedure ShowID(const ID: Integer);
    var
      i: Integer;
  begin
    i := SL.IndexOfObject(TObject(ID));
    if (i > -1) then // ID ist in der Liste
      ShowMessage(SL.Strings[i])
    else
      ShowMessage(IntToStr(ID)+' ist nicht in der Liste!?');
  end;

begin
  NextID := 0;
  SL := TStringList.Create;
  try
    SL.AddObject('Das',GetNextID); // ID=0
    SL.AddObject('ist',GetNextID); // ID=1
    SL.AddObject('ein',GetNextID); // ID=2
    SL.AddObject('Test!',GetNextID); // ID=3
    ShowID(1);
    ShowID(2);
    SL.Delete(1);
    ShowID(2);
    ShowID(1);
  finally
    SL.Free;
  end;