{$modeswitch objectivec2}
unit uobjc42;

interface
type
  tinf = objcprotocol
    procedure mytest; message 'mytest';
  end;

implementation

end.