怎样通过名称来调用function和procedure?

Question

我要通过名称来调用function和procedure,请问应该怎样做?比如 我有一个procedure和function
procedure myprocedure;
function myfunction():integer;我要在程序里用他们的名字来调用他  要这样实现
var 
  s:string;
  s1:string;
begin
  s:='myprocedure';
  s1:='myfunction';
  以上是将procedure和function的名称赋给string变量,然后怎么通过s和s1来调用?
end;

Answer 1

function myfunction: integer;
....var
  F: function: inteeger;
  ....
  F:=myfunction;  //可以将函数myfunction 指定给F

Answer 2

procedure myprocedure;
....
var
  P: procedure;
....
  P:=myprocedure;

Answer 3

to simonzone实际上我是要通过string变量来中转一下  因为有很多个名称类似,按顺序的函数和过程component有findcomponent  我就是想要这种类似的功能应该怎么做?