Use el asistente de Dll de Delphi para escribir DLL. 

 Creación: cambie el nombre de DLL al guardar 

 Test2 de la biblioteca; 

 usos

  SysUtils,

  Classes,

  forms,

  dialogs;

{$R *.res}

function test():string;

begin

  showmessage('a');

end;

exports
prueba; // Necesidad de

begin
fin. 

 Llamado: función test (): string; externo 'xxxxxxx \ test2.dll'; 

 Simplemente llame al método de prueba en el botón. 

 Dynamic Call dll: 

 Tipo
// enlace nocturno, es decir, las llamadas dinámicas de las funciones externas usan principalmente los siguientes tres comandos:
// LoadLibrary: Obtén DLL
// getProcaddress: Get Función
// Freelibrary: Liberación 

   // Definir un tipo de proceso, los parámetros deben ser consistentes con las funciones requeridas

  TMB = function(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private
mb: tmb; {función de declaración MB}
Inst: Longword; {Declarador Una variable para registrar el mango DLL que se utilizará}

  public

    { Public declarations }

  end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  inst := LoadLibrary('user32.dll');

  if inst <> 0 then

    MB := GetProcAddress(inst, 'MessageBoxW');

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin
freelibrary (inst); {recuerda liberar}

end;