Wie anonyme Funktion nutzen?

[Fritzew]

Ändere
TMyFunc = function(Item: TListItem): Boolean of object; zu

TMyFunc = reference to function(Item: TListItem): Boolean;