关于事件procedure函数的问题

Question

// Events
  PLogEvent = procedure(Sender: TObject; Msg: string) of object;
  PCodeGenerateEvent = procedure(Sender: TObject; Model: IUMLModelElement; Idx, Total: Integer; AState: PCodeGenerateKind) of object;
上面两句话分别是什么意思？能分别解释一下吗？

Answer 1

在delphi的帮助中输入of object，里面讲的比较详细

Answer 2

先是定义了一个事件：
PCodeGenerateEvent = procedure(Sender: TObject; Model: IUMLModelElement; Idx, Total: Integer; AState: PCodeGenerateKind) of object;
又定义了一个属性：
property OnGenerateCode: PCodeGenerateEvent read FOnGenerateCode write FOnGenerateCode;
然后就开始用了：
OnGenerateCode(Self, TargetElements[I], I + 1, TargetElementCount, cgkFile);请问OnGenerateCode的实现过程在哪儿呢？它是怎么实现的呢？