Punteros a Procesos (procedures)

[[escafandra]]

Código Delphi [-]
type
   TProc1 = procedure;

procedure PP;
begin
  Beep;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Proc: TProc1;
begin
  // Asigno el puntero de un procedimiento
  Proc:= @PP;
  // Con ese puntero puede ejecutar el procedimiento
  Proc;
  // Y muestro su dirección en hexadecimal
  ShowMessage(IntToHex(Integer(@PP), 8));
end;

Saludos