我在delphi6 + indy8的环境下写的程序为什么在任务管理器中显示的线程数一直在增加???(50分)

这是一个Client程序,每5s发送一次数据,
发送时我先建一线程,然后在线程中connect和发送
但是任务管理器中显示的线程数一直在增加,请各位老师给与帮助
constructor TSendThread.Create();
begin
FtcpClient := TIdTCPClient.Create(nil);
FtcpClient.Host := Config.BlackListIP;
FtcpClient.Port := Config.BlackListPort;
PlateImg := TMemoryStream.Create;
VehicleImg := TMemoryStream.Create;
inherited Create(True);
end;

destructor TSendThread.Destroy;
begin
FtcpClient.Free;
PlateImg.Free;
VehicleImg.Free;
inherited;
end;

procedure TSendThread.Execute;
var
m: TMemoryStream;
begin
FreeOnTerminate := True;
try
FtcpClient.Connect;
m := TMemoryStream.Create;
try
m.Write(FData, SizeOf(FData));
//发送车辆数据
FtcpClient.WriteStream(m, True, True);
if TPackFunction(FData.FunID) = pfNew then
begin
//发送车牌图
FtcpClient.WriteStream(PlateImg, True, True);
FtcpClient.WriteStream(VehicleImg, True, True);
FMsg := '发送黑(白)名单完毕';
end else
FMsg := '重新发送车牌完毕';
FLogType := ltNormal;
Synchronize(ShowMsg);
finally
m.Free;
FtcpClient.Disconnect;
end;

except
on E: Exceptiondo
begin
WriteLog('异常, 原因:' + e.Message);
FMsg := '连接黑(白)名单计算机失败';
FLogType := ltError;
Synchronize(ShowMsg);
end;
end;
end;

procedure TSendThread.ShowMsg;
begin
frmMain.ShowLog(FMsg, FLogType);
end;

5S发一次，在线程中看不出来啊。难道你每5S就开线程？这样做不太好的。可能出现你说的问题。应该在线程里每5S发一次。