Как импортировать переменную из exe в dll?

library Project1;
 
uses
  System.SysUtils,
  System.Classes,
  dllForm1 in 'dllForm1.pas' {dll1};
 
{$R *.res}
 
procedure ShowDllForm; stdcall;
begin
  dll1 := Tdll1.Create(nil);
  dll1.Show;
end;
 
Function PlusMin (a,b: Integer): string;
begin
  result:= inttostr(a + b);
  dll1.Edit1.Text:=result;
end;
 
Exports
    ShowDllForm,
    PlusMin;
begin
end.

unit dllForm1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  Tdll1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
 
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
 
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  dll1: Tdll1;
 
implementation
 
{$R *.dfm}
 
 
procedure Tdll1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// Я хотела при закрытии формы освобождать память от библиотеки, но хочу сделать так, чтобы память освобождалась только тогда, когда закроется последняя формаДЛЛ
    // FreeLibrary(strtoint(c));
  Action := caFree;
end;
 
end.

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
  private
 
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  dHandle: THandle;                
implementation
 
{$R *.dfm}
 
 
procedure TForm1.Button3Click(Sender: TObject);
var
dHandle: THandle;     
PlusMin:    function (a,b: Integer): string; 
ShowDllForm: procedure ;stdcall;
begin
@PlusMin:=nil;
@ShowDllForm:=nil;
 dHandle:=LoadLibrary('Project1.dll');
 
 if dHandle<>0 then
    begin
    @ShowDllForm:=GetProcAddress(dHandle,'ShowDllForm');
    if @ShowDllForm<>nil then
          begin
           ShowDllForm;
           end
      else         
          begin
           showmessage('Результат: процедура ShowDllForm не найдена в Dll');
          Exit;
          end;
 
    @PlusMin:=GetProcAddress(dHandle,'PlusMin');
    if @PlusMin<>nil then
          begin
           PlusMin(strtoint(Edit1.Text), strtoint(Edit2.Text));
           end
      else       
          begin
           showmessage('Результат: Функция PlusMin не найдена в Dll');
          Exit;
          end;
     //FreeLibrary(dHandle); //
    end
    else
    begin
       showmessage('Результат: Библиотека не найдена');
      Exit;
    end;
 
end;
 
end.