Laufzeit einer Prozedur/Funktion

[holle]

Ich würde gerne eine Prozedur schreiben zum Messen der Laufzeit einer belibigen Prozedur oder Funktion. Beim Aufruf der Prozedur soll dann die Prozedur/Funktion übergeben werden. So hatte ich angefangen, das funktioniert aber noch nicht:

Delphi-Quellcode:

program zeit;
type
  proc = procedure;

procedure beispiel;
begin
  // mache irgendwas
end;

procedure laufzeit(p: proc);
begin
  // messe laufzeit
  p;
  // messe laufzeit
  // gib laufzeit aus
end;

begin
  laufzeit(beispiel);
end.