{ %NORUN } program tw30030; {$mode delphi} type TAcl = Class End; TAssertion = Function(Acl: TAcl): Boolean Of Object; begin end.