anchor.diff:  
       function ValueFromString(const S: string): PPyObject;
       function ValueToString(Obj: PPyObject; QuoteStrings: boolean): string;
  +    procedure ValueToRecord(Obj: PPyObject; out R: TAppPyEventResult);
   
       procedure SetPath(const Dirs: array of string; DoAdd: boolean);
       procedure ClearCache;
  
positive.code:   Obj: PPyObject;
  begin
    Obj:= MethodEvalObjects(AObject, AMethod, AParams);
    SetResultFromObject(Obj, Result);
  end;
  
  
  
negative.code:     FEngine:= GetPythonEngine;
  end;
  
  procedure TAppPython.ValueToRecord(Obj: PPyObject; out R: TAppPyEventResult);
  begin
    R.Val:= evrOther;
    R.Str:= '';
  