delphi call function from its name

interface

type

  TNodeFunction = function(AInput: String): String;
implementation
function Func1(AInput: String): String;

begin

   result := AInput;

end;
function Func2(AInput: String): String;

begin

   result := ‘Fooled You’;

end;
function Func3(AInput: String): String;

begin

   result := UpperCase(AInput);

end;
procedure Demonstration;

var

  SomeFunc, SomeOtherFunc: TNodeFunction;

begin
     SomeOtherFunc = Func3;
     SomeFunc := Func1;

     SomeFunc(‘Hello’);   // returns ‘Hello’

     SomeFunc := Func2;

     SomeFunc(‘Hello’);   // returns ‘Fooled You’
     SomeOtherFunc(‘lower case’); // returns ‘LOWER CASE’
end;