Ein Object in TObjectList<T> löschen mit Ereignis

[RWarnecke]

Habe ich das aus der OH für Assigned richtig verstanden, wenn ich folgende Zeilen Code chreibe :

Delphi-Quellcode:

  Degree := TDegree.Create;
  Degree.OnChange := TableEntryChange;
  Degree.OnDelete := TableEntryDelete;
  Degree.ID := FieldByName('ID').AsInteger;
  Degree.Degree := FieldByName('Degree').AsString;
  DegreeList.Add(Degree);

Dann gibt mir Assigned(FOnDelete) innerhalb der Klasse zurück, ob die Zeile Degree.OnDelete := TableEntryDelete; ausgeführt wurde oder nicht ? Wenn ja, dann ist es leider nicht der Fall. Assigned(FOnDelete) gibt immer False zurück. Warum ?

Der obere Code-Iteil wird in einer Schleife mehrmals wiederholt.