Ejecutar Procedure en Tiempo de Ejecucion

[aposi]

Hola,
creo que se refiere a que en la base de datos tiene el nombre de un procedimiento

si es así mira este codigo:

Código Delphi [-]

type
    TForm1 = class(TForm)
      Button1: TButton;
      procedure Button1Click(Sender: TObject) ;
      procedure CallMeByName(Sender: TObject) ;
    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) ;
 begin
    ShowMessage('Hello Delphi!') ;
 end;

 procedure TForm1.Button1Click(Sender: TObject) ;
 begin
    ExecMethod(Form1, 'CallMeByName') ;
 end;