高分求助，如果能解决再加100分（一次给不了更多的分）谢谢各位了！

Question

我写了一个类。这个类的public
  keycount:integer;
  query:TQuery;
  fields:array of tfield    constructor Create(ADataSource:TDataSource;ATableName:string;AForm:Tform);我在创类的方法里。这样写。但是在运行的时候。delphi总提示内存写错误constructor DataSetAuto.Create(ADataSource:TDataSource;ATableName:string;AForm:Tform);
Var
  i:integer;
begin
   query:=tquery.create(nil);
   query.databasename:='sss';
   keycount:=1;
end;调试的时候。query:=tquery.create(nil);
这里就弹出错误。不知道是为什么。无缘无故的我以为动态创建Query有错误。将这一句注释。
结果。
keycount:=1也有错这到底是为什么呢？谢谢了。如果能解决。我愿意再给100分

Answer 1

错误提示access violation at address 005e91fb in module 'aaa.exe'write of address 000000034

Answer 2

>>   query:=tquery.create(nil);
>>   query.databasename:='sss';
如果這兩句注釋還有錯, 那就奇怪了!