program Project746;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

type
  TMyTest = class
  private
    procedure MyTest(Arg: Integer);
  public
    procedure CallTest;
  end;

procedure Test(proc: TProc<Integer>);
begin
  proc(42);
end;

procedure TMyTest.CallTest;
begin
  Test(MyTest);
end;

procedure TMyTest.MyTest(Arg: Integer);
begin
  Writeln(ClassName + '.MyTest(' + Arg.ToString + ')');
end;

procedure MyProc(Arg: Integer);
begin
  Writeln('MyProc(' + Arg.ToString + ')');
end;

var
  myTest: TMyTest;
begin
  Test(MyProc);
  myTest := TMyTest.Create;
  try
    myTest.CallTest;
    Test(myTest.MyTest);
  finally
    myTest.Free;
  end;
  Readln;
end.