多线程查询问题（新手），请大侠些帮忙

Question

功能是：从数据库中取出数据，循环用数据库中的记录来进行逻辑处理，这里我想用多线程的方式来处理逻辑。
while(not eof) do
begin
  //线程参数
  a := FieldByName().AsString;
  //创建子线程,执行子线程有点占资源
  Thread1 := TThreadQuery.create();
  //下一条记录
  next;
end;问题：请教这样的写法正确吗？我想控制线程数，比如50，请问怎么取得当前子线程数

Answer 1

我主要想实现的功能是这样的：
从数据库1表A中取出所有数据循环处理每一条记录（数据处理过程速度有点慢）
处理一条记录后修改日志数据库2表B（本次处理多少条记录）；
同时修改处理进度数据库3表C（对表A总共处理了多少记录）。
还需要用多线程来实现进度条显示处理过程