unit uMain;

uses PythonEngine, WrapDelphi, WrapDelphiVCL;

function PyInit_Delphi: PPyObject; cdecl;

gEngine : TPythonEngine;

gModule : TPythonModule;

gDelphiWrapper : TPyDelphiWrapper;

function PyInit_Delphi: PPyObject;

try

gEngine := TPythonEngine.Create(nil);

gEngine.AutoFinalize := False;

gModule := TPythonModule.Create(nil);

gModule.Engine := gEngine;

gModule.ModuleName := 'Delphi';

gDelphiWrapper := TPyDelphiWrapper.Create(nil);

gDelphiWrapper.Engine := gEngine;

gDelphiWrapper.Module := gModule;

gEngine.LoadDll;

except

end;

Result := gModule.Module;

end;

gEngine.Free;

gModule.Free;

end.