高分悬赏,奇怪的'Invalid Class TypeCast'

Question

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')=:paYue
order by 日期
DB Server 是ORACLE