求助，cxGrid,动态定义Item为什么无法释放资源？

在FormCreate中写了var
  OS:TOracleSession;
  ODS:TOracleDataSet;
  DS:TDataSource;
begin
    OS:=TOracleSession.Create(Application);
    ODS:=TOracleDataSet.Create(Application);
    ODS.Session:=OS;
    DS:=TDataSource.Create(nil);
    DS.DataSet:=ODS;    tv1.DataController.DataSource:=DS;    .......................................    with tv1 do
    begin
      BeginUpdate;
      ClearItems;
      DataController.CreateAllItems;
      EndUpdate;
    end;
    cxGrid1.Align:=alClient;
end;tv1 是一个 cxDBTableView，程序中已经有了，就是cxGrid里的。这段代码能运行，可以看到 cxGrid载入的数据，但是，当点击关闭时，资源管理器中观察还可以看到程序的进程，并且CPU占用100%。请问这是什么错误？要怎么解决？