Free pascal assign procedure as TNotifyEvent

http://forum.lazarus.freepascal.org/index.php?topic=31306.0

1.  
2.   procedure DoSomeThing(aself, Sender:TObject);
3.   begin
4.     writeln('Hello');
5.   end;
6.  
7.   function MakeMethod( Data, Code: Pointer ): TMethod;
8.   begin
9.     Result.Data := Data;
10.     Result.Code := Code;
11.   end;
    
    
    xxxx.xevent = TNotifyEvent(MakeMethod(timer, @dosomething));