SQLConnectionで終了時にエラー

TKMK 2010-03-11 01:17:17 No: 37988

http://www39.atwiki.jp/kgh07155/pages/28.html
上記のURLを参考にDLLを呼び出す処理を作成しました。
DLLは、問題なく呼び出せたのですが、SQLConnectionを
使用すると終了時にEAccessViolationのエラーが出ます。
dbxfb.dllの読み取り違反となっていますが、
原因がわかりません。

SQLConnectionが閉じられていないのかと思い、
一度、ConnectedをTrueにしてFalseにしてみましたが
エラーになります。

CreateFormをコメントアウトするとエラーが出ません。
DLLを呼び出してSQLConnectionを利用した場合のみ
エラーが出ます。
何が原因なのでしょうか?

type
  TFMain = class(TForm)
    SQLConnection1: TSQLConnection;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
FMain: TFMain;

function CreateDLLForm(hOwner: HWND): TForm; stdcall; external 'Sub.dll';

implementation

{$R *.dfm}

procedure TFMain.FormCreate(Sender: TObject);
begin
  CreateDLLForm(Application.Handle);
  SQLConnection1.Connected := True;
  SQLConnection1.Connected := False;
end;