Use a
Type TProc=procedure() of object;
procedure Callback(proc:TProc);
begin
...
end;
MyProc procedure ()
begin
...
end;
Callback(myproc);
Usage of Two
type TProc= reference to Procedure();
procedure Callback(proc:TProc);
begin
....
end;
Callback(
procedure()begin
end;
);