Procedure soll Procedure aufrufen als Pointer ?

[turboPASCAL]

Hi,

ich habe ein kleines Problemchen, meine Procedure A soll die Procedure B ausführen
dieals Parameter übergeben wird:

Delphi-Quellcode:

var B: procedure(); stdcall;

procedure A(Proc: Pointer);
begin
 // und nu starte "B"
end;

Wie macht man das ?