我想在动态连接库里定义一个全局变量,可是编译不能通过,以下是源代码:
library ReportDll;uses
  sharemem,
  SysUtils,
  Classes,
  Forms,
  WinTypes,
  dbtables,
  rxquery,
  db,
  ........{$R *.RES}var
  db:TDatabase;procedure Init;
begin
  db:=TDatabase.Create(nil);
  db.AliasName:='main';
  db.DatabaseName:='main1';
  db.LoginPrompt:=false; 
  ....
end;
怎么写才正确??????