anchor.diff:    Form: TCustomForm;
     Data: PPyObject;
   begin
  -  with GetPythonEngine do
  +  with AppPyEngine do
       Data:= PyString_FromString(PChar(ConvertShiftStateToString(Shift)));
   
     if not DoEvent(Key, FEventOnKeyDown, Data) then
  
positive.code:   IdControl: integer;
    DataRect, Data: PPyObject;
  begin
    with GetPythonEngine do
    begin
      DataRect:= Py_BuildValue('(iiii)', ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);
      Data:= PyDict_New();
  
negative.code: var
    Data: PPyObject;
  begin
    with AppPyEngine do
      Data:= PyString_FromString(PChar(ConvertShiftStateToString(Shift)));
  
    if not DoEvent(Key, FEventOnKeyUp, Data) then
  