多线程数据库记录追加问题(30分)

做一个多线程程序，一个主线程，三个子线程。
要求从一张数据表（Table）中不断地取记录发送到三个子线程中，
三个子线程中各有一张数据表（Table）,将主线程的Table表中的记录一条一条地取出，然后加到自己的Table中。
要求：主线程用来调度子线程，只要主线程的数据表中有数据记录，则不断地追加到
三个子线程的数据表中。
请问处理时应注意哪些问题，是否应对主线程中的Table表作为临界区对象，应该如何来完成这样的工作，可否提供一些相关的代码。
本人不甚感激，我的Email: xu169@sina.com

线程不断检索数据库会造成很大的开销。 要设置延时。
多个子线程访问主线程表，要加锁。 可以使用TEvent,或者是TMutiReadExclusiveWriteSynchronize.

test