如何从Delphi中创建的DLL导入函数？

library MyDLL;

uses
  SysUtils,
  Classes;

function MyFunction(Param1: Integer; Param2: String): Boolean; stdcall;
begin
  // 在此处编写您的代码
  Result := True;
end;

exports
  MyFunction;

begin
end.

const
  MyDLL = 'MyDLL.dll';

type
  TMyFunction = function(Param1: Integer; Param2: String): Boolean; stdcall;

var
  MyDLLHandle: THandle;
  MyFunctionPtr: TMyFunction;
begin
  MyDLLHandle := LoadLibrary(MyDLL);
  if MyDLLHandle <> 0 then
  begin
    @MyFunctionPtr := GetProcAddress(MyDLLHandle, 'MyFunction');
    if Assigned(MyFunctionPtr) then
    begin
      // 调用DLL函数
      MyFunctionPtr(1, 'Hello');
    end;
    FreeLibrary(MyDLLHandle);
  end;
end;