奇怪的“Invalid Class TypeCast”(100分)

TForm1.DXDBGrid.DoubleClick(Sender:TObject);
begin
Form2:=TForm2.Create(nil);
Form2.FilterName:=Query1.Fields[2].AsString;
Form2.ShowModal;
Form2.Free;
end;

TForm2.FormShow(Sender:TObject);
begin
with Query1 do
begin
if Active then Close;
ParamByName('paYue').AsString:=FilterName;
** Open;
end;
当程序第一次执行到**时，正常，以后就出错：
“访问地址冲突”或“Invalid Class TypeCast”
如何解决？
end;

补充：
Query的SQL语句为：
SELECT 日期,属性,摘要,凭证号,品名,规格,等级,单位,实收数 数量
FROM 器材明细帐
WHERE TO_CHAR(日期,'YYYYMM')=aYue
order by 日期
DB Server 是ORACLE

问题，我已经解决了，谢谢各位

fsdfdsfdsf

把分给我吧 。呵呵

接受答案了.

哈哈哈，这100分太爽了。