这段代码好象有问题

Question

出自《INSIDE VCL》李维著，第57，58页TDerived=class(TBase)
...
public
...
  procedure MyMethod2;
end;
procedure TForm1.Button7Click(Sender:TObject)
var
  aObj:TDerived;
  sData:String;
  aPtr:Pointer;
begin
  ...
  aPtr := Pointer(@TDerived.Mymethod2);  //这一行代码根本就无法通过编辑，错误提示
                                         //“Variable Required.”如果把类中的方法改为事
                                         //件，就可以通过编辑
  sData := MethodName(aPtr);
  ...
end;

Answer 1

aPtr := @TDerived.Mymethod2;

Answer 2

这段代码，我测试后sData返回的是空值