Fórum Chamar Função de uma Variavel #382634

 
TExec = procedure of object; // procedimento do objeto
 
 
var
  Routine: TMethod;
  Exec: TExec;
begin
  Routine.Data := Pointer(SeuObjeto); //objeto onde a sua função vai estar (formulário,classe)
  Routine.Code := OnObject.MethodAddress(NomeDoMetodo); // aqui vc passa o nome do método
  if NOT Assigned(Routine.Code) then 
    Exit;
  Exec := TExec(Routine);
  Exec;
end;