Delphi AdoQuery中的while语句错误参数

Question

我在代码的assignation参数的while语句中第二次执行AdoQuery时出错：

在声明中，我只做那段代码：

  

虽然没有tColla.Eof做什么         开始
          ADOQUtilisateurCFGIP.Close;
          ADOQUtilisateurCFGIP.Parameters.ParamByName（'DomaineId'）。Value：= iDomaineId;           ADOQUtilisateurCFGIP.Parameters.ParamByName（'Code'）。Value：= tColla.FieldByName（'Code'）。AsString;
          ADOQUtilisateurCFGIP.Open;
          ADOQUtilisateurCFGIP.Close;
        tColla.Next;
        端;

它的工作时间，但第二次我对参数Code有一个变体问题，而它有一个很好的价值......