Ok,

I followed your instructions when it did this hang up and the break point
was:

asm fldcw [SaveCW] end;

and the callstack had:

TIB_Dataset.SysFetchNext
TIB_Dataset.SysFetchAll(???)
TIB_Dataset.FetchAll
TIB_BDataset.SeekKeyForBufferFields(($5FFD64, 0, 19375052, 13991936, 0))
TIB_BDataset.LookupKeyForBufferFields
TIB_BDataset.SetBufferBookmark(???)
TIBODataset.CompareBookmarks($127A394,$127C88C)
TCustomdxDBTreeListControl.CompareBkm(???,???)
AssignNode(???)
TCustomdxDBGrid.GetNextNodes(lmCurrent,rmNone,False)
TCustomdxDBGrid.LoadGroupList(nil)
TCustomdxDBGrid.ReLoadGroupList
TCustomdxDBGrid.LinkActive(???)
TCustomdxDBGrid.SetOptionsDB([edgoCancelOnExit,edgoPartialLoad,edgoUseBookma
rks])
TForm1.doopenlist
TForm1.dxDBTreeList1KeyDown(???,???,[])
TCustomdxDBTreeList.KeyDown(13,[])

Thanks.