OnSendUniData event does not work about python4delphi HOT 4 OPEN

procedure TForm2.PythonInputOutputSendUniData(Sender: TObject;
  const Data: string);
begin
//PythonInputOutput.DisplayString(Data);
cs.Enter;
Memo1.Lines.Add('WORK'); //NOT (
cs.Leave;
end;

procedure TForm2.InitPython;
begin
  PythonEngine := TPythonEngine.Create(nil);
  try
    PythonInputOutput:=TPythonGUIInputOutput.Create(nil);
    PythonInputOutput.OnSendUniData:=PythonInputOutputSendUniData;
    PythonEngine.IO:=PythonInputOutput;
    PythonInputOutput.UnicodeIO:=True;
    PythonInputOutput.RawOutput := False;
    PythonInputOutput.DelayWrites:=True;
    PythonEngine.InitThreads := True;
    PythonEngine.UseLastKnownVersion := False;
    PythonEngine.DllPath := ExtractFilePath(ParamStr(0));
    PythonEngine.DllName := 'python310.dll';
    PythonEngine.AutoLoad := False;
    PythonEngine.AutoUnload := False;
    PythonEngine.AutoFinalize := True;
    PythonEngine.RedirectIO := True;
    PythonEngine.LoadDll;
    TPythonThread.Py_Begin_Allow_Threads;
  finally
//
  end;
end;