如何定义指向过程(Procedure)的指针.(50分)

type
TMyProc = procedure(t:integer) of object;//定义一个过程类型
var
Myproc:TMyproc
//定义一个过程变量
调用的时候就可以Myproc(2)了

假设有一个过程:
procedure Test;
var i:integer;
begin
i:=1;
end;

type
TProc = array [1..10] of procedure of object
//^^^^^^^^^如果不使用面对对象，则不需要 of object
var
Proc : TProc;
begin
Proc[1]:=Test
//让Proc[1]指向Test过程
Proc[1]
//等同于 执行Test过程;
end;

多人接受答案了。