Hola, puedes hacer algo asi
Código Delphi
[-]
type
TProcedure = procedure;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure Call(P : TProcedure);
begin
p;
end;
procedure Test;
begin
ShowMessage('test');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Call(Test);
end;
end.
predefiniendo el tipo. En la ayuda de delphi (procedure pointers) veras varios ejemplos. Un saludo.