{ %norun }
Unit tw26069;

{$mode delphi}

Interface

Type
  TClass1 = Class
  Type
    TReason = (rnOne, rnTwo);
  End;

  TClass2 = Class
  Type
    TReason = (rn1, rn2);
  End;


Implementation

End.