ContainsKey in SortedList

[Raffigator]

Also ich habe das ganze in einer Klasse und im Konstruktor passiert folgendes:

Delphi-Quellcode:

//Der Konstruktor
...
  SpaltenNamen := SortedList.Create;

  SpaltenNamen.Add(TObject(1),'NAME');
  SpaltenNamen.Add(TObject(2),'VORNAME');
...

Ich habe im Hauptprogramm ein Objekt dieser Klasse erzeugt und rufe dann z.B. MyObject.isIn(TObject(1)) auf.
Die isIn-Methode delegiert das ganze einfach weiter:

Delphi-Quellcode:

function PStammA_Fields.isIn(o : TObject) : boolean;
begin
  Result := SpaltenNamen.ContainsKey(o);
end;

Ich schätze, dass ich mit dem TObject irgendwie murks mache, steh aber gerade auf dem Schlauch...