DLL
library Project1;
uses
  SysUtils,
  Classes;

type
  strarr=array of string;
  intarr=array of integer;
  pstrarr=^strarr;
  pintarr=^intarr;
{$R *.res}
procedure aaa(bbb: pstrarr; bbb2: pintarr); far;
var
  rslt: intarr;
begin
  bbb2^[ 0 ]:= 1 ;
  bbb2^[ 1 ]:= 2 ;
end;

exports
  aaa;
begin
end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  strarr=array of string;
  intarr=array of integer;
  pstrarr=^strarr;
  pintarr=^intarr;
  aaa=procedure (bbb: pstrarr; bbb2: pintarr);

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  p: pointer;
  bbb: strarr;
  bbb2: intarr;
  j: integer;
begin
  i:=LoadLibrary(PChar('./dll/project1.dll'));
  p:=GetProcAddress(i,PChar('aaa'));
  setlength(bbb, 2 );
  bbb[ 0 ]:='1';
  bbb[ 1 ]:='2';
  setlength(bbb2, 2 );
  aaa(p)(@bbb,@bbb2);
  for j:= 0  to length(bbb2)- 1  do
    memo1.Lines.Add(inttostr(bbb2[j]));
  FreeLibrary(i);
end;
end.