不能向Dll中传递Session吗？？(50分)

先调用procedure AssignSession(Session: TSession); cdecl;传入一个Session
在调用ShowForm显示窗体。还可以显示多个窗体
释放的时候全部关掉
前面写的是原先写的一个测试部分
这个是后来的写好的，会更好点。我没来的及测试。
因为我那时候写的是传 ODAC的TOraSession，不是TSession
有问题我在帮你测试,别对大富翁这么没信心，我在这里找到了好多问题的答案


unit DLLMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBTables;

type
  TfmDllMain = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure AssignSession(Session: TSession); cdecl;
procedure ShowForm; cdecl;
procedure HideForms; cdecl;

implementation

{$R *.DFM}

var
  ExternalSession: TSession;
  FormList: TList;
  FormCount: integer;

procedure AssignSession(Session: TSession); cdecl;
begin
  ExternalSession:= Session;
end;

procedure ShowForm; cdecl;
begin
  InitOCI; 
  with TfmDllMain.Create(Application) do begin
    Inc(FormCount);
    Query.Session := ExternalSession;
    //OraQuery.Active := True;
    Show;
  end;
end;

procedure HideForms; cdecl;
begin
  while FormList.Count > 0 do begin
    TForm(FormList[0]).Free;
    FormList.Delete(0);
  end;
end;

procedure TfmDllMain.FormShow(Sender: TObject);
begin
  FormList.Add(Self);
end;

procedure TfmDllMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FormList.Remove(Self);
  Action := caFree;
end;

initialization
  FormCount:= 0;
  FormList:= TList.Create;
finalization
  HideForms;
  FormList.Free;
end.