用户无法找到DLL

Question

我有一个程序，该程序调用存储在该程序所在文件夹中的DLL。当我从IDE或直接运行该程序的调用代码时，它会找到该DLL，并且不会出错。但是，当客户端运行程序时，它给出错误``无法加载DllSendOrder2018.dll''。这种行为才刚刚开始。在旧版本的代码上，它没有错误加载（除了我需要解决的另一个问题）。

procedure TFrmMain.BtnSendOrderClick(Sender: TObject);
var
  SendOrders : procedure; stdcall;
begin
  DLLHandleSend := LoadLibrary('DllSendOrder2018.dll');
  if DLLHandleSend <> 0 then
  begin
    @SendOrders := GetProcAddress(DLLHandleSend,'SendOrders');
    try
      SendOrders;
    except
      on E: Exception do
        ShowMessage(E.Message);
     end;
     FreeLibrary(DLLHandleSend);
  end
  else
    MessageDlg('Unable To Load DllSendOrder2018.dll',mtError,[mbOk],0);
  FldLookup.SetFocus;
end;

有没有更好的放置DLL的地方？