Fórum Erro de chamada de DLL no FIREBIRD #393289

Bom dia.
Creie a seguinte DLL abaixo no delphi.
No delphi fazendo a chamada da DLL funciona normalmente, mas quando declaro
uma UDF no FIRIBIRD dá erro. ***********************************************************************************************
***** Declaração da UDF no FIRBIRD ************************************************************ DECLARE EXTERNAL FUNCTION MYLIMPATEXTO  VARCHAR(80)
RETURNS VARCHAR(80) FREE_IT
ENTRY_POINT 'LimpaTexto' MODULE_NAME 'ProjDll'; Copiei a DLL pra a pasta do FIREBIRD EM UDFs.
Quando faço a chamada no FIREBIRD ocorre o seguinte erro: select mylimpatexto(NOMERAZAO) from pessoas Erro:-------------------------------------------------------------------------------------
Unsuccessful execution by a system error that precludes
successful execution of subsequent statements. Error writing data to the connection.
**********************************************************************************************
***** DLL CRIADA NO DELPHI ******************************************************************* library ProjDll;
uses
  SysUtils,
  Classes; {$R *.res} function LimpaTexto(sTexto: String): String; Export; stdcall;
var
   i: Integer;
   Texto: String;
begin
   sTexto := sTexto + StringOfChar(' ', 20);
   Texto := ' ';
   for i := 0 to Length(sTexto) do
   begin
      if not (sTexto[i] in [',', '.', '=', '/', '\', ' ', '_', '-', '+', ':', '?', ';', ')', '(']) then
      begin
         Texto := Texto + sTexto[i];
      end;
   end;
   Result := Trim(Texto);
end; exports
LimpaTexto index 1; begin
end.