Gibt es etwas wie "FindProcedure"?

[Opa Knack]

Hallo,

in meinem aktuellen Projekt erzeuge ich dynamische Objekte, denen wiederum Methoden zugewiesen werden sollen, die als Strings übergeben werden und die bereits erstellt wurden.

Als Beispiel:

Delphi-Quellcode:

procedure Tform.Prozedur1(Sender: TObject);
...

procedure Tform.Prozedur2(Sender: TObject);
...

procedure Tform.ProzedurenZuordnen(Vorgabe: String);
begin
   if(Vorgabe = 'prozedur1') then Komponente.OnClick := Prozedur1
   else if(Vorgabe = 'prozedur2') then Komponente.OnClick := Prozedur2;
end;

Mein Gedanke ist nun, dass dies die etwas unelegantere Lösung ist, da wesentlich mehr Prozeduren vergeben werden müssten. Also bräuchte ich etwas in der Form von

Delphi-Quellcode:

procedure Tform.ProzedurenZuordnen(Vorgabe: String);
begin
   Komponente.OnClick := FindProcedure(Vorgabe);
end;

(Ich hoffe, dass das halbwegs nachvollziehbar ist)

Leider kann ich nichts finden, was auch nur halbwegs in diese Richtung geht.

Hat jemand von euch einen Tipp, wie ich das umsetzen könnte?

Danke
Opa