{ %FAIL } program toperator71; operator = (left, right: TObject) res : Boolean; begin end; begin end.