ADOQuery в *.DLL - Выдаёт ошибку...

[Рустам]

Здрасьте! Такая вот штука,
подгружаем DLL - ку и открываем из неё форму. в DataModule лежит Query

после загрузки всего вышеперечисленного пишу:

 Procedure TData.Load_List(grup: integer);
var i:integer;
begin
  with Data.ADOQuery1 do begin
   active:=false;
    ConnectionString:='Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=Shop;SERVER=192.168.1.111;UID=root;DATABASE=shop;PORT=3306"';
    sql.Clear;
    sql.Add('select * from tovar;'); // where grup='+inttostr(grup)+';');
    active:=true;
    first;

  for i:=0 to RecordCount-1 do begin
    with Form1.List do begin
      Items.Add.Caption:=FieldValues['num'];
      Items[i].SubItems.Add(FieldValues['name']);
      Items[i].SubItems.Add(FieldValues['price']);
      Items[i].SubItems.Add(FieldValues['grup']);
    end;
    next;
  end;
  active:=false;
  end;
end;

и ту тебе бах-хх-х::: Access violation at address 00C99C2C in module... read of address 00000058

Где я ошибся???
Чё ей надо???

[Рустам]

Значит вот какое дело! Методом Рандом_Тыка выяснилось, что DLL-ка начинает матюкаться уже после добавления компоненты ADOQuery...
К чему это...??? Что ей так не нравится в ADOQuery???

[Рустам]

РЕШЕНО!
.............не использовать DataModule в DLL-ках...
.............вместо ADOQuery(ADO) использовать Query(BDE)...
получилось так:

Procedure TForm1.Load_List(grup: integer);
var i:integer;
begin
  with Query1 do begin
   active:=false;
    DatabaseName:='Shop';
   sql.Clear;
   sql.Add('select * from tovar;'); // where grup='+inttostr(grup)+';');
   active:=true;
   first;
  for i:=0 to RecordCount-1 do begin
    with Form1.List do begin
      Items.Add.Caption:=FieldValues['num'];
      Items[i].SubItems.Add(FieldValues['name']);
      Items[i].SubItems.Add(FieldValues['price']);
      Items[i].SubItems.Add(FieldValues['grup']);
    end;
    next;
  end;
  active:=false;
  end;
end;

Как то так!!!
P.S. На самом деле просто нет времени разбираться с ADOQuery...