call onexecute for Executefunction

git-svn-id: http://code.remobjects.com/svn/pascalscript@3 5c9d2617-0215-0410-a2ee-e80e04d1c6d8

Source/uPSComponent.pas

@@ -943,6 +943,7 @@ end;
 function TPSScript.ExecuteFunction(const Params: array of Variant;
   const ProcName: string): Variant;
 begin
+  DoOnExecute(RI);
   Result := Exec.RunProcPN(Params, ProcName);
 end;