Ejecutar procedimientos por su nombre y con parametros

[makina]

Hola a todos!!

Tengo un problema y espero me puedan ayudar.

Necesito poder ejecutar un metodo(procedimiento/funcion) por su nombre, y ademas pasarle valores, ya he buscado en el foro y me encontre con la solucion que propone Neftalí con el uso de RTTI, sin embargo ademas de poder llamar al procedimiento necesito pasarle parametros, algo asi:

Código Delphi [-]
type
   TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject) ;
     procedure CallMeByName(Sender: TObject;Valor1:string) ;
   private
     procedure ExecMethod(OnObject: TObject; MethodName: string) ;
   end;
 
var
   Form1: TForm1;
 
type
   TExec = procedure of object;
 
procedure TForm1.ExecMethod(OnObject: TObject; MethodName: string) ;
var
   Routine: TMethod;
   Exec: TExec;
begin
   Routine.Data := Pointer(OnObject) ;
   Routine.Code := OnObject.MethodAddress(MethodName) ;
   if NOT Assigned(Routine.Code) then Exit;
   Exec := TExec(Routine) ;
   Exec;
end;
 
procedure TForm1.CallMeByName(Sender: TObject;Valor1:String) ;
begin
   ShowMessage(Valor1) ;
end;
 
procedure TForm1.Button1Click(Sender: TObject) ;
begin
   ExecMethod(Form1, 'CallMeByName', valor1) ;
end;

es decir que en el momento en que ejecute el metodo ExecMethod con el parametro 'CallMeByName' tambien pueda pasarle el parametro valor1.

Espero haber sido claro, y les agradesco su ayuda

------------------------------------------------
makina:

Saludos desde México

[VictorPenyalver]

Cambia esta declaración

Código Delphi [-]
type
   TExec = procedure of object;

por esta

Ejemplo para un parametro de tipo integer:

Código Delphi [-]
type
   TExec = procedure(valor: integer) of object;

[Soa Pelaez]

Implemente tu código y hago que ejecute el procedimiento mediante un mensaje, al darle ok lo ejecuta pero si sucede un error nuevamente aparece el mensaje y pide que le de Ok o cancelar, el procedimiento lo ejecuta tantas veces aparezca esta ventana de mensaje, como hago para que cuando no haya error solo lo ejecute una vez y no todas las veces que le dio Ok a la ventana de mensaje, igual gracias tu código me ha servido bastante.
Espero puedas ayudarme.

[Ñuño Martínez]

No entiendo muy bine lo que explicas, pero sospecho que no tiene que ver con esto. ¿Podrías poner tu código?