Delphi 线程池使用的问题

Question

线程池类是取自卢伟的专栏DELPHI 线程池代码(http://blog.csdn.net/babyvspp/archive/2008/01/01/2008234.aspx)，封装的十分完美，用法也非常简单，可以根据使用者设定的初始工作线程数和最大线程数以及线程执行时间自动增加工作线程。
用法：// 创建线程池
FThreadPool := TThreadsPool.Create(Self); // 创建线程池
FThreadPool.ThreadsMin := 5; // 初始工作线程数
FThreadPool.ThreadsMax := 50; // 最大允许工作线程数
FThreadPool.OnProcessRequest := DealwithCommRecvData; // 线程工作函数(DealwithCommRecvData在工作者线程的Execute方法中被调用)
// 使用线程池
var
　AWorkItem: TRecvCommDataWorkItem; // 继承自TWorkItem
begin
　AWorkItem := TRecvCommDataWorkItem.Create;
　Move(PData[0], AWorkItem.FRecvData[0], PDataLen);
　AWorkItem.FRecvDataLen := PDataLen;
　FThreadPool.AddRequest(AWorkItem); // 向线程池分配一个任务
end;以上是网上说的使用方法，谁能给我提供一个完整的实例，主要是不明白下面这段代码的使用，代码中的继承自TWorkItem不能理解，哪位能给我讲解下？
var
　AWorkItem: TRecvCommDataWorkItem; // 继承自TWorkItem
begin
　AWorkItem := TRecvCommDataWorkItem.Create;
　Move(PData[0], AWorkItem.FRecvData[0], PDataLen);
　AWorkItem.FRecvDataLen := PDataLen;
　FThreadPool.AddRequest(AWorkItem); // 向线程池分配一个任务