type
  T = class
    procedure operator+=(a, b:T) := exit;
  end;

begin
end.