Можно объяснить, почему данный код не работает

  lua_newtable(LuaState);
  lua_pushinteger(LuaState, 1); 
  lua_pushstring(LuaState, PAnsiChar('value1')); 
  lua_settable(LuaState, -3); 
  lua_pushinteger(LuaState, 2); 
  lua_pushstring(LuaState, PAnsiChar('value2'));
  lua_settable(LuaState, -3);
  lua_pushnil(LuaState);
  while (lua_next(LuaState, -2) <> 0) do begin
    key := lua_tostring(LuaState, -2);
    lua_pop(LuaState, 1);
  end;