// Test case for Delphi anonymous methods
unit ok_anonymous_methods;

interface

type
  // description of @name
  TSimpleProcedure = reference to procedure;
  // description of @name
  TSimpleFunction = reference to function(x: string): Integer;

implementation

end.
