Wskaźnik na statyczną metodę

0

Mam problem z przekazaniem argumentu do statycznej funkcji. Jeśli wywołam ją normalnie to jest OK, natomiast gdy poprzez wskaźnik na funkcję, to przekazuje nil jako argument. Nie wiem jak to obejść.
Delphi XE.

type
  TA = class
    class procedure MyFun(Obj: TStrings);
  end;

class procedure TA.MyFun(Obj: TStrings);
begin
  Showmessage(IntTOStr(Obj.Count));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  T: TStringList;

  P: procedure(Obj: TStrings);
begin
  T := TStringList.Create;
  T.Append('TEST');

  P := @TA.MyFun;


  TA.MyFun(T);  //działa
  P(T);  //przekazuje nil
end;
0

Bo czy
class procedure MyFun(Obj: TStrings);
To jest to samo co
procedure MyFun(Obj: TStrings); ??

NIE

1

var
P: procedure(Obj: TStrings) of object;
begin
P := TA.MyFun;

1 użytkowników online, w tym zalogowanych: 0, gości: 1