在对象或类中查找方法：
F：=FindFunction(FunctionName, Object or Class)
表示在Object对象或Class中查找名称为FunctionName的函数。F指向找到的函数。
第二个参数可以是
1）对象，必须预先实例化一个对象,之中方法可以用于查找实例方法或类方法。
2）类，格式为：Class(类名)。这种方法只能差找类方法，不能查找实例方法

找到的函数可以用do方法执行；
F.do();表示执行找到的方法，如果函数有参数，把参数传给 do方法

program test;
type A=class()
  function F()
  Begin
    writeln("f");
  End;

  class function F2();
  Begin
    writeln("f2");
  end;
End;

begin
  //从对象中查找实例方法
  AA:=createobject("A");
  F:=FindFunction("F",AA);
  F.do();
  //从类中查找类方法
  F2:=FindFunction("F2",class(A));
  F2.do();
End.