基础问题
procedure Append(adq: Tadoquery);
adq和Tadoquery分别是什么？

[解决办法]
接分~~~~

adq 是变量名,Tadoquery 是类名;功能就是定义一个Tadoquery的类实例adq;

对应有:

var
i:integer ;//定义一个整型变量 i
adq: Tadoquery;//定义一个Tadoquery的类实例adq;