Method parses function arguments from Python to Delphi

delphi_python_parsing.pas

function TFrmMain.ConsoleModule_Print( pself, args : PPyObject ) : PPyObject; cdecl;
var
  pprint: NativeInt;
  val1: Integer;
  val2: Single;
  val3: PAnsiChar;
begin
  with GetPythonEngine do
  begin
    if (PyErr_Occurred() = nil) and
{$IFDEF CPU64BITS}
      (PyArg_ParseTuple( args, 'Lifs',@pprint, @val1, @val2, @val3) <> 0)
{$ELSE}
      (PyArg_ParseTuple( args, 'iifs',@pprint, @val1, @val2, @val3) <> 0)
{$ENDIF}
    then
    begin
      TPyThread(pprint).ConsoleUpdate(val1, val2, val3);
      Result := ReturnNone;
    end else
      Result := nil;
  end;

end;