RTTI и другие трюки с информацией о классах, модулях и т.п.

Code:

{ ... }

type

PYourMethod = ^TYourMethod;

TYourMethod = procedure(S: string) ofObject;

procedure TMainForm.Button1Click(Sender: TObject);

begin

ExecMethodByName('SomeMethod');

end;

procedure TMainForm.ExecMethodByName(AName: string);

var

PAddr: PYourMethod;

M: TMethod;

begin

PAddr := MethodAddress(AName);

if PAddr <> nilthen

begin

   M.Code := PAddr;

   M.Data := Self;

   TYourMethod(M)('hello');

end;

end;

procedure TMainForm.SomeMethod(S: string);

begin

ShowMessage(S);

end;