Pekare till procedur

>Hur gör jag en pekare till en procedur och hur anropar jag då proceduren?
Genom att använda @.

Ett litet exempel:

procedure BProc(i: Integer);
begin
ShowMessage(IntToStr(i));
end;

procedure AProc(Proc: Pointer);
type
TBProc = procedure(i:Integer );
var
Test: TBProc;
begin
Test := Proc;
Test(1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AProc(@BProc);
end;