怎样释放由createThread(nil,0,@hthread,nil,0,threadID);创建的线程？(在线)
如：
procedure TFdlfee.PageControl1Change(Sender: TObject);
var
QQ:thandle;
qqID:dword;
dc:hdc;
s:string;
begin

qq:=createThread(nil,0,@Qfee,nil,0,qqID);
if qq=0 then
showmessage('创建查询线程失败!');

end;
如何释放qq线程？