function strtodelphi():ansistring; external 'SimpleDelphiLua.dll' ;

procedure TForm1.buferDblClick(Sender: TObject);
begin
bufer.lines.add(string(strtodelphi));
end;

поправил ничего не изменилось
 
вызов осуществляется из проги дельфи

function strtodelphi():string;stdcall //это вызываем из дельфи получаем строго 'неудача'
begin
if s<>nil then Result:=string(s) else result:='неудача';
end;
exports strtodelphi;

Этот кусок я не совсем понял.
А где осуществляется вызов strtodelphi?

Сделайте так:

var
   s: AnsiString;

В вашем коде:

var s:pansistring;

"Как тебя понимать, Саид?" (с)

uses lua53, lauxlib, lualib,Registry;
  function forLua_str(L: Plua_State): Integer; cdecl;
  function forLua_rstr(L: Plua_State): Integer; cdecl;

var s:pansistring;
implementation

uses Windows, SysUtils;

procedure Regstring(name, param : string); // реестр  запись
var
  reg  : TRegIniFile;
begin
  reg := TRegIniFile.Create('');
  reg.RootKey := HKEY_LOCAL_MACHINE;
     //   добавляем
   try
   reg.WriteString('Software\Leopold',name,param) ;
   except    //если нет такого ключа создаем
    begin
    reg.CreateKey('Leopold');
    reg.WriteString('Software\Leopold',name,param) ;
    end;
   end;
  //освобождаем память
  reg.Free;
end;
function Regstringread(name : string):string; // реестр  чтение
var
  reg  : TRegIniFile;
begin
reg := TRegIniFile.Create('');
reg.RootKey := HKEY_LOCAL_MACHINE;
   try    //   читаем
   result:=reg.readString('Software\Leopold',name,'') ;
   except   //ловим
   result:='ошибка чтения реестра';
   end;
  //освобождаем память
reg.Free;
end;
function forLua_str(L: Plua_State): Integer; cdecl;//пишем строку в реестр пытаемся записать для дельфи в переменную
//первый  аргумент название второй строка
//вызываем в луа  названиедлл.str("имя параметра","значение")
var
    n,i: Integer;
    ISTRFOUND: Boolean;
    name,res: pansichar;

begin
   n := lua_gettop(L);  // количество переданных аргументов из луа
      ISTRFOUND := false;
    for i := 1 to n do
      begin
        if lua_type(L,i) = LUA_TSTRING then //проверка на стринг
          begin
            res :=lua_tostring(L,i); //записываем строку
            if i=1 then name:=res;//первай аргумент  имя в реестре
            ISTRFOUND := true; //если аргументов более 2х в принципе можно сделать мультизапись пока не нужно
          end;
      end;

    if ISTRFOUND then
       begin
         // если найдено хоть однa строка
       Regstring(name,res); //добавляем в реестр
       s:=pansistring(res);// лажа не работает
       //lua_pushstring(L,pansichar(s)) это пишет в луа по указателю l данные s
       end
      else
      lua_pushnil(L);// если список аргументов пуст или в нем нет строки - функция вернет nil
      Result := 1;  // возвращаемое количество результатов
end;

function forLua_rstr(L: Plua_State): Integer; cdecl;//*чтение с реестра переменной
//вызываем в луа  названиедлл.str("имя параметра")
     var n:integer;
  begin   //данная функция запишет параметр из реестра в луа
if lua_type(L,1) = LUA_TSTRING then //параметр из луа строка
lua_pushstring(L,Regstringread(lua_tostring(L,1)))//параметр будет являтся именем переменной в реестре
else lua_pushstring(L,pansichar('имя аргумента не является строкой'));// при ошибке возвращаем в луа
Result := 1;// возвращаемое количество результатов
end;
     function strtodelphi():string;stdcall //это вызываем из дельфи получаем строго 'неудача'
begin
if s<>nil then Result:=string(s) else result:='неудача';
end;
exports strtodelphi;
end.

через реестр все прекрасно вносится напрямую дельфи с длл читать не хочет
dll=require "SimpleDelphiLua"
local is_run = true
function onclose()
    is_run = false
end
function main()
    while is_run do
  wrreestr()
  sleep(3000)
    end
end

function wrreestr() -- запись текущих значен в реестр для обработки отображения параметров  для делфи
if dll.rstr('какоето_название')~='какая то строка' then
     dll.str('какоето_название','какая то строка')
end
end

Какой тип переменной s ?

PAnsiChar - это указатель. Указатель на память.
Вы вызовом  res :=lua_tostring(L,i); получили указатель в res, сохранили его в s. Но ведь по выходу из функции forLua_str() этот указатель становится уже невалидным.

Сделайте так:

var
   s: AnsiString;

И приведенный вами пример заработает.
Надо будет только поправить:
lua_pushstring(L,s) --> lua_pushstring(L,PAnsiChar(s))

    function dll:PansiChar;stdcall
begin
Result:=lua_tostring(ldel,idel);
end;
exports dll;
разве вот такая функция не должна отдавать в дельфи значение строки в переменной?
хотя это масло масляное...

И еще.

res := '';

Странное место, ведь res - это указатель PAnsiChar

    if isNumberFound then
       begin
       lua_pushstring(L, res);  // если найдено хоть однa строка в аргументах - возвращаем ее
       s:=res;
       end
    else
        lua_pushnil(L);         // если список аргументов пуст или в нем нет строк - функция вернет nil
      Result := 1;  // возвращаемое количество результатов
end;
     function forLua_rstr(L: Plua_State): Integer; cdecl;    //*чтение с переменной
  begin
if s<>nil then
       lua_pushstring(L,s)
       else lua_pushstring(L,pansichar('нет параметра')); // возвращаемое количество результатов
     Result := 1;
end;

Посмотрите на буквально соседнюю тему, там есть ссылки на статьи. Примеры обычно на Си, но это ж не проблема.

Не пойму, это прототип функции, которая вызывается в DLL непосредственно из Lua?? Или что это?

Для функций, вызываемых в DLL из Lua, прототип всегда должен быть только таким:

function dll_function_for_lua(L: Plua_State): Integer; cdecl;