unit uMain;

uses PythonEngine, WrapDelphi, WrapDelphiVCL;

procedure initDelphi; cdecl;

gEngine : TPythonEngine;

gModule : TPythonModule;

gDelphiWrapper : TPyDelphiWrapper;

procedure initDelphi;

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;

end;

gEngine.Free;

gModule.Free;

end.