线程运行一段时间后报错

Question

项目中有一线程，从控制设备采集数据，通过查询判断后，将采集到的数据插入到数据库中，频率大概在2秒钟采集一次，数据库用的是sql sever 2000，现在出现一问题，运行一段时间后(有时候几个小时，有时候一两天)，报错：Access violation at address 4034BDA8 in module 'dbrtl70.bpl'. Read of address 000043BE。导致数据无法插入到数据库。因为这个错误比较难捕获，一直没能查明白是怎么回事，望各位大侠指教！

Answer 1

coInitialize(nil);
try
  访问数据库部分 or 调用ActiveX控件部分
finally
  CoUninitialize;
end;

Answer 2

线程中访问数据必须调用coInitialize(nil);

Answer 3

如楼上上的在线程执行函数中调用coinit。排除这个问题再看还出问题。
线程中最好try except防止不可控制。