F2084 Internal Error: URW1349

今天遇到这样的情况，写的代码编译出这个错误：

F2084 Internal Error: URW1349

查询QC，有人也遇到。

最后查到是一个事件中下面这行代码造成的，DataInfo是一个接口类型变量。

  with TjhcyclInfo(Self.DataInfo).qcyclCamera do

最后把代码改写成，用一个方法返回qcyclCamera：

function TjhcyclDoc.GetcyclDataSet: TDataSet;
begin
  result:=TjhcyclInfo(Self.DataInfo).qcyclCamera;
end;      

//  with TjhcyclInfo(Self.DataInfo).qcyclCamera do
  with GetcyclDataSet do