新人请教，如何获取类成员函数的指针？

Question

public
  procedure TestAddress;
  procedure ShowAddress;
end;......
procedure TTest.testAddress;
begin
  ...
end;procedure TTest.ShowAddress;
var
  P: Pointer;
begin
  P:= @(testAddress);     //这一句报错，variable required
  
end;请问要怎样获取成员函数的地址？我是新人，请各位前辈指点
TTest = class
public
  procedure TestAddress;
  procedure ShowAddress;
end;......
procedure TTest.testAddress;
begin
  ...
end;procedure TTest.ShowAddress;
var
  P: Pointer;
begin
  P:= @(testAddress);     //这一句报错，variable required
  
end;请问要怎样获取成员函数的地址？我是新人，请各位前辈指点类指针

Answer 1

type
  TPro = procedure of object;
  PPro = ^TPro;
  TTest = class
  public
    procedure TestAddress;
    procedure ShowAddress;
  end;implementation  { TTest }procedure TTest.ShowAddress;
var
  P: Pointer;
  P1: TPro;
begin
  P1 := testAddress;
  P:= @P1;
end;procedure TTest.TestAddress;
beginend;end.

Answer 2

为啥要获取地址啊，直接用TestAddress调用就行了啊