type
TAnonEvent=class
public
class function Wrap<T1,T2>(OnEvent:T1):T2;
end;
{ TAnonEvent }
class function TAnonEvent.Wrap<T1,T2>(OnEvent: T1):T2;
var
Addr:Pointer;
AMethod:PMethod;
begin
Addr:=PPointer(@OnEvent)^;
AMethod:=@Result;
AMethod.Code:=PPointer(IntPtr(PPointer(Addr)^)+SizeOf(Pointer)*3)^;//QueryInterface/AddRef/Release/Invoke
AMethod.Data:=Pointer(Addr);
end;

type
TNotifyEventA=reference to procedure(ASender:TObject);
procedure TForm3.Button1Click(Sender: TObject);
begin
Button2.OnClick:=TAnonEvent.Wrap<TNotifyEventA,TNotifyEvent>(procedure (sender: tObject)
begin
Button2.Caption:=DateTimeToStr(Now);
ShowMessage('OK');
end);
Button2.OnClick(Sender);
end;

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

type   TAnonEvent=class   public     class function Wrap<T1,T2>(OnEvent:T1):T2;   end; { TAnonEvent } class function TAnonEvent.Wrap<T1,T2>(OnEvent: T1):T2; var   Addr:Pointer;   AMethod:PMethod; begin Addr:=PPointer(@OnEvent)^; AMethod:=@Result; AMethod.Code:=PPointer(IntPtr(PPointer(Addr)^)+SizeOf(Pointer)*3)^;//QueryInterface/AddRef/Release/Invoke AMethod.Data:=Pointer(Addr); end;   type   TNotifyEventA=reference to procedure(ASender:TObject); procedure TForm3.Button1Click(Sender: TObject); begin Button2.OnClick:=TAnonEvent.Wrap<TNotifyEventA,TNotifyEvent>(procedure (sender: tObject)      begin       Button2.Caption:=DateTimeToStr(Now);        ShowMessage('OK');      end); Button2.OnClick(Sender); end;