Вызов процедуры строкой

...
procedure Proc1;
begin
...
end.
var str1:string;
begin
str1:='Proc1';
та самая функция\процедура(Str1);
end;

type TProc = procedure;
var str1 : TProc;
begin
  str1 := @Proc1;
end.

str1;

type TProc = procedure;
var str1,str2,str3,...,strN : TProc;

type TProc = procedure;
var arr: array[1..5] of TProc;
 
Procedure ar(s: string);
Begin
 writeln(s);
End;
 
Begin
 arr[1]:=ar;
 arr[1];
End.

type TProc = procedure(s:string);
var arr:array[1..5] of TProc;
procedure ar(s:string); Far;
begin
writeln(s) 
end;
begin 
arr[1]:=ar; 
arr[1]('Hello world!'); 
end.

uses crt;
type TProc = procedure(s:string);
var arr:array[1..5] of TProc;
{$F+}
procedure ar(s:string);
begin
writeln(s) 
end;
{$F-}
begin
clrscr;
arr[1]:=ar; 
arr[1]('Hello world!');
readln
end.

type TProc = procedure(s: string);
var arr: array[1..5] of TProc;
 
Procedure ar(s: string); Far;
Begin
 writeln(s);
End;
 
Begin
 arr[1]:=ar;
 arr[1]('Hello');
End.

type TProc = procedure(s: string);
var arr: array[1..5] of TProc;
{$F+}
Procedure ar(s: string);
Begin
 writeln(s);
End;
{$F-}
Begin
 arr[1]:=ar;
 arr[1]('Hello');
End.

arr[1]:=ar;

type TProc = procedure(s: string);

arr[1]:=ar;

type TProc1 = procedure(D: string);
TProc2 = procedure(I: integer);
type kind = (proc1,proc2);
var arr:array[1..5] of pointer;
var types:array[1..5] of kind;
 
Procedure A(D: string);
Procedure B(I: integer);
 
begin
{сохранение}
arr[1]:=@A; types[1]:=proc1; {процедура берёт строку}
arr[2]:=@B; types[2]:=proc2; {процедура берёт число}
{вызов}
if types[1]=proc1 then TProc1(arr[1])('Hello!') else TProc2(arr[1])(20);
if types[2]=proc1 then TProc1(arr[2])('Hello!') else TProc2(arr[2])(20);
end.

arr[1]:=@ar;