有关三层的问题,请高手指教

Question

三层结构TClientDataSet+TSocketConnection+TDataSetProvider+TADOQuery方式,问题出现在TClientDataSet.DataRequest,当不间断大数据量调用TClientDataSet.DataRequest函数时,就会在运行一段时间后,就会阻塞在TClientDataSet.DataRequest这个函数也不会运行下去,请高手指教,问题在哪里?
代码如下:
V := VarArrayCreate([0, SizeOf(TDataRequestMsg)], VarByte);
MyBuffer := VarArrayLock(V);
Move(ConfigureData^, DataRequestMsgTmp.ConfigureData, SizeOf(TSystemData));
Move(DataRequestMsgTmp, MyBuffer^, SizeOf(TDataRequestMsg));
VarArrayUnlock(V);
CustomerDataTmp.ClientDS.DataRequest(V);