用法一
Type TProc=procedure() of object;
procedure Callback(proc:TProc);
begin
...
end;
procedure myproc()
begin
...
end;
Callback(myproc);
用法二
type TProc= reference to Procedure();
procedure Callback(proc:TProc);
begin
....
end;
Callback(
procedure()begin
end;
);