tList с указателями на методы

[Altera]

Всем привет!
Вот такой вопрос:
Хочу в tList-е хранить методы (указатели на них), и вызвать их из tList-а
Нечего не получается...

tProc = procedure;
  Tmain_form = class(TForm)
    Button9: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure e1;
    procedure e2;

end;
...
var
   list: tList;
...
procedure Tmain_form.FormCreate(Sender: TObject);
var
p: pointer;
begin
   list := tList.Create;
   p := MethodAddress('e1');
   list.Add(p); // p = nil почему-то...
   list.Add(@e2); // пишет [Pascal Error] main.pas(63): E2036 Variable required
end;
...
procedure Tmain_form.Button9Click(Sender: TObject);
var
c: integer;
tp: tProc;
begin
   for c := 0 to List.Count - 1 do
   begin
      @tp := list.Items[c];
      tp;
   end;
end;

[Altera]

Получилось вот таким макаром:

type
  tProc = procedure of object;
  Tmain_form = class(TForm)
     button9: tButton;
    procedure FormCreate(Sender: TObject);
    procedure Button9Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
    procedure e1;
    procedure e2;
  end;

var
  main_form: Tmain_form;
  list: tList;
  myProc: tProc;

implementation


{$R *.dfm}

procedure Tmain_form.Button9Click(Sender: TObject);
var
c: integer;
tp: tProc;
begin
   for c := 0 to List.Count - 1 do
   begin
      @tp := list.Items[c];
      tp;
   end;
end;

procedure Tmain_form.e1;
begin
   showMessage(':e1:');
end;

procedure Tmain_form.e2;
begin
   showMessage(':e2:');
end;

procedure Tmain_form.FormCreate(Sender: TObject);
var
p: tProc;
begin
   list := tList.Create;
   p := e1;
   list.Add(@p);
   p := e2;
   list.Add(@p);
end;

end.

А по проще способа нету? И вообще это надёжно?

[Altera]

И ещё прикол!
Короче бросил один метод в другой класс, чтобы проверить как он себя поведёт, если ещё убить.

В общем он всё равно вызывается и работает как надо, даже если я form3.free вызываю.

Пока писал, въехал, что в памяти остаётся процедура по нужному адресу, но её планировщик в любой момент может системе вернуть или под другие благие дела задействовать.

Код во вложении (там 2 формы)

------------------------
Ну в общем я сам спрашиваю, сам отвечаю. Сам с собой болтаю короче...

[Altera]

Сообщение от Altera

В общем он всё равно вызывается и работает как надо, даже если я form3.free вызываю.

Пока писал, въехал, что в памяти остаётся процедура по нужному адресу, но её планировщик в любой момент может системе вернуть или под другие благие дела задействовать.

Ой, это ещё не всё! Пардон!
Метод form3.e4 вызывается даже если я вообще не создавал форму.

begin
  Application.Initialize;
  Application.CreateForm(Tmain_form, main_form);
  //Application.CreateForm(TForm3, Form3);
  Application.Run;
end.

procedure Tmain_form.Button4Click(Sender: TObject);
begin
   form3.e4;
   showMessage(intToStr(integer(form3))); 
end;

:::e4:::
0

Объясните мне это! Значит, я так понимаю, я могу вызывать public и published методы из не существующих объектов?
Люди, не молчите! Я тут не для новичков изламываюсь...

//Новый пример во вложении