Создание Dll

    luaopen_pxsqlite3 = @luaopen_sqlite3         @0  ; luaopen_sqlite3(lua_State *)

#include "lua.h"
#include "lauxlib.h"
#pragma link "PXLua.lib"

int lua_hello(lua_State *L)
{
  lua_pushstring(L, "Hello World!");
  return 1;
}

LIBRARY     Project1.dll
DESCRIPTION "Project1"

EXPORTS
    lua_hello = @lua_hello         @1 ; lua_hello(lua_State *)

local Msg = package.loadlib("Project1", "lua_hello")

if Msg then
  Core.SendToAll(Msg())
end

#include <windows.h>    //Это необходимо для использования функций WinAPI
#include "lua.h"
#include "lualib.h"
#include "lauxlib.h"
#pragma comment(lib, "PXLua.lib")

//Собственно, это и есть функция, которую мы будем вызывать из Lua-скрипта:
static int msgbox (lua_State *L) {    //Функциям, вызываемым из Lua-скриптов, всегда передаётся только один аргумент - адрес массива lua_State, который содержит информацию о состоянии Lua
//При вызове функции из скрипта, её аргументы помещаются в стек.
    const char *header = luaL_checkstring (L, 1);    //Забираем из стека первый аргумент функции
    const char *text = luaL_checkstring (L, 2);    //Забираем из стека второй аргумент функции
    MessageBox(0,text,header,0);    //Вызываем функцию WinAPI MessageBox
    return 0;    
}

//Массив luaL_reg, содержащий список функций, которые можно будет вызвать  из скрипта. В нашем случае функция всего одна.
static const struct luaL_reg functions[] = {
    {"MessageBox", msgbox},
    {NULL, NULL},    //Так всегда должен выглядеть последний элемент массива luaL_reg
};

//Функция, вызываемая при инициализации библиотеки:
int libinit (lua_State *L)
{
    luaL_register (L, "Win", functions);    //Второй аргумент - имя таблицы, в которую будут помещены функции, доступные из скриптов, третий аргумент - адрес массива luaL_reg (См. выше)
    return 1;
}

LIBRARY     PXHello.dll

EXPORTS
    luaopen_pxhello =@libinit         @0  ; libinit(lua_State *)

require "pxhello"

function OnStartup()
    Win.MessageBox("Hello World!!!", "Фигасе!!! Это работает!")    --Первый аргумент - заголовок окна сообщения, второй - текст, отображаемый в окне
end

library PXHello2;

uses
  Windows;

type
  lua_State = record
  end;
  Plua_State = ^lua_State;
  
  size_t = Integer;
  Psize_t = ^size_t;
  
  PLuaFunc = ^TLuaFunc;
  TLuaFunc = function (L: Plua_State): Integer; cdecl;

  PluaL_reg = ^TluaL_reg;
  TluaL_reg = packed record
    Name: PChar;
    Func: PLuaFunc;
  end;

const
  pxlib = 'pxlua.dll';
  
function luaL_checklstring(L: Plua_State; numArg: Integer; s: Psize_t): PChar; cdecl external pxlib name '@luaL_checklstring';
procedure luaL_register(L: Plua_State; libname: PChar; const R: PluaL_reg); cdecl external pxlib name '@luaL_register';
                        
function luaL_checkstring(L: Plua_State; N: Integer): PChar;
begin
  Result := luaL_checklstring(L, N, nil);
end;

//Собственно, это и есть функция, которую мы будем вызывать из Lua-скрипта:
function msgbox (L: Plua_State): Integer; cdecl;     //Функциям, вызываемым из Lua-скриптов, всегда передаётся только один аргумент - адрес массива lua_State, который содержит информацию о состоянии Lua
var
  header, text: PChar;
begin
    //При вызове функции из скрипта, её аргументы помещаются в стек.
    header := luaL_checkstring (L, 1);    //Забираем из стека первый аргумент функции
    text := luaL_checkstring (L, 2);    //Забираем из стека второй аргумент функции
    MessageBox(0, text, header, 0);    //Вызываем функцию WinAPI MessageBox
    result := 0;    
end;

//Массив luaL_reg, содержащий список функций, которые можно будет вызвать  из скрипта. В нашем случае функция всего одна.
const
  functions: array [0..1] of TluaL_reg = (
    (Name: 'MessageBox'; Func: @msgbox),
    (Name: nil; Func: nil)    //Так всегда должен выглядеть последний элемент массива luaL_reg
  );

//Функция, вызываемая при инициализации библиотеки:
function luaopen_pxhello2(L: Plua_State): Integer; cdecl;
begin
    luaL_register(L, 'Win', @functions);    //Второй аргумент - имя таблицы, в которую будут помещены функции, доступные из скриптов, третий аргумент - адрес массива luaL_reg (См. выше)
  result := 1;
end;

exports
  luaopen_pxhello2;

begin
end.