遇到一个奇怪问题，取函数指针出错，求高手解答

Question

procedure TForm1.FormCreate(Sender: TObject);
var p:pointer;
begin
  p:=@formcreate;
end;
类似上面的代码，编译的时候老是说“variable required”，总之取任何函数的指针都是如此，请问谁知道这是怎么回事啊。

Answer 1

type
  TObjMthd = procedure(Sender: TObject);
  TFunc = procedure;procedure TForm1.Button1Click(Sender: TObject);
begin
  Showmessage('类方法');
end;procedure XXX;
begin
  Showmessage('XXX');
end;procedure TForm1.Button2Click(Sender: TObject);
var
  P1, P2 : Pointer;
begin
  P1 := Self.MethodAddress('Button1Click');
  TObjMthd(P1)(Self);
  P2 := @XXX;
  TFunc(P2);
end;