gistfile1.pas

{$mode objfpc}{$M+}
program test;

type
  TMyClass = class
    // Must be with RTTI view
    procedure SayHi;
  end;

procedure TMyClass.SayHi;
begin
  writeln('Hi World');
end;

var
 MyClass : TMyClass;
 Exec : procedure of object;
 found : Boolean;

begin
  MyClass := TMyClass.Create;

  TMethod(Exec).data := MyClass;
  TMethod(Exec).code := MyClass.MethodAddress('SayHis');

  found := Assigned(Exec);

  if not found then
  begin
     writeln(STDERR, 'Could not find method');
  else
    Exec;
  end;

  MyClass.Free;
  halt(Integer(not found));
end.