program demo;
   
type
   TSimpleProcedure = reference to procedure;
   TSimpleFunction = reference to function(x: string): Integer;
   
var
   x1: TSimpleProcedure;
   y1: TSimpleFunction;
   
begin
   x1 := procedure
     begin
       Writeln('Hello World');
     end;
   x1;   //invoke anonymous method just defined
   
   y1 := function(x: string): Integer
     begin
       Result := Length(x);
     end;
   Writeln(y1('bar'));  
end.