Funktionsnamen aus Variablen?

[new32]

Gibt es eine möglichkeit eine Funktion auszuführen, deren Name in einer Variable steht?

z.B.:

Delphi-Quellcode:

var s:string;

procedure h;
begin
 //???
end;

s:=h;

so und nu möchte ich dieses hier anders machen:

if s=h then h;