Impossible d'affecter TADOQuery a TADOQuery

Citation:

J'ai ce message a l'execution de ma procedure :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
procedure TfrmMain.FillCategoryList;
  Var
      qry : TADOQuery;
  Begin
      qry := TADOQuery.Create(nil);
      if cbbChooseBiblio.ItemIndex = 1 then
          qry.Assign(DataModule1.qryS)
 
      else if cbbChooseBiblio.ItemIndex = 1 then
          qry.Assign(DataModule1.qryP);
 
      categoryList.Clear;
      with qry do
          begin
          Open;
          while not EOF do
              Begin
                  //....
                  // Traitement de qry ... 
 
 
                  next;
              end;
          Close;
          end;
      qry.Free;
  end;

Je ne suis pas sur que ca aie a voir avec ce sujet FAQ :

http://delphi.developpez.com/faq/?pa...ctertfonttfont

Merci pour votre aide...