【内容】指定した obj の publishedメソッドを　名前で呼び出せす

function CallNotify(obj,caller:TObject;name:string):boolean;
var func:TNotifyEvent;
var method:TMethod absolute func;
begin
method.Code:= obj.MethodAddress(name);
Result:=method.Code<>nil;
if Result then
begin
　 method.Data:=obj;
　 func(caller);
end ;
end;

【使い方】
TForm1 = class(TForm)
　略
published
procedure Func(Sender: TObject);
end;
var Form1:TForm1;

とある場合に
CallNotify( Form1 , nil , 'Func'); として 呼び出す