调用DLL函数时访问冲突

Question

我在DLL上有下一个功能：

function PedirContraseña() : string;
var
clave, claveCodificada : string;
begin


clave := InputBox('Autenticación', 'Introduzca la clave de acceso', '');
claveCodificada := SHA256Hash(clave);
Result := claveCodificada;

end;

exports PedirContraseña;

它向用户询问密码，然后它应用SHA256哈希并返回此哈希的结果。

在主应用程序中，我有以下电话：

function PedirContraseña() : string; external 'seguridad.dll';



procedure Tmenubodega.BitBtn1Click(Sender: TObject);
var
  s : string;
begin
  inherited;
    s := PedirContraseña;
    ShowMessage(s);
end;

• 我第一次点击按钮就可以了。
• 第二次它仍然有效。
• 从现在开始，每次点击2次，就会在dll上显示访问冲突异常（1次，下次不会，下次不会，下次不会......）

我很困惑。我该怎么办？

提前感谢