[DUG]: What is wrong with this code??

[Donovan J. Edye]

G'Day All,

I am getting a 216 error (In a large app) and a 217 (go figure) in a small
app that I created (see below for code). The error is occuring when I create
a TADOQuery in the initialization section of a unit. Has anybody got any
ideas, pointers etc??

Unit1 - Just a blank form, with the only code change being:

implementation

{$R *.DFM}

uses
    Unit2;

and Unit2 is:

unit Unit2;

interface

uses
    ADOdb;

var
   q : TADOQuery;

implementation

uses
    SysUtils;

initialization
   q := TADOQuery.Create(nil);
finalization
   FreeAndNil(q);
end.

------------------------------------------------------------------------
--Donovan
Donovan J. Edye [www.edye.wattle.id.au]
Namadgi Systems, Delphi Developer
Web: www.namsys.com.au E-Mail: [EMAIL PROTECTED]
Voice: +61 2 6285-3460 Fax: +61 2 6285-3459
TVisualBasic = Class(None);
------------------------------------------------------------------------

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz