Execute LUA code from MVD

function dll:variant;
    var DW:variant;
begin
    DW := CreateOleObject('DynamicWrapperX');
    DW.Register('lua53.dll', 'luaL_newstate', 'r=l');
    DW.Register('lua53.dll', 'luaL_openlibs', 'i=l');
    DW.Register('lua53.dll', 'luaL_loadstring', 'i=ls');
    DW.Register('lua53.dll', 'lua_callk', 'i=luull');
    DW.Register('lua53.dll', 'lua_close', 'i=l');
    result := dw;
    DW := nil;
end;

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
    l:LongInt;
begin
    l:=dll.luaL_newstate();
    dll.luaL_openlibs(l);
    dll.luaL_loadstring(l,'file = io.open("test.txt", "a");file:write("hello")');
    dll.lua_callk(l, 0, 0, 0, 0);
    dll.lua_close(l);

end;

begin
  Form1.mniFile.Visible := False;
  Form1.mniOptions.Visible := False;
  Form1.mniSettings.Visible := False;
  Form1.mniReport.Visible := False;
  Form1.mniAbout.Visible := False;
end.