List publish method for Delphi

Project1.dpr

program Project1;

uses
  TestClass in 'TestClass.pas';

{$APPTYPE CONSOLE}

type
  TMethodTable = packed record
    Count: smallint;
    Reserved1: array[0..5] of byte;
    Data: char;
  end;

var
  ref: TClass;
  table: ^TMethodTable;
  i: integer;
  buf: ^ShortString;
begin
  ref := TTestClass;
  asm
    mov EAX, [ref]
    mov EAX,[EAX].vmtMethodTable
    mov [table], EAX
  end;

  buf := @table.Data;
  for i := 1 to table.Count do begin
    Writeln(buf^);

    buf := Pointer(PChar(buf) + (Length(buf^)+1)+6);
  end;
end.

TestClass.pas

unit TestClass;

interface

type
  TTestClass = class
  public
    procedure MethA;

  published
    procedure MethPA;
    procedure MethPB;
    procedure MethPC;
  end;

implementation

procedure TTestClass.MethPA;
begin
end;

procedure TTestClass.MethPB;
begin
end;

procedure TTestClass.MethPC;
begin
end;

procedure TTestClass.MethA;
begin
end;

end.