多线程资源的释放问题
有一个多线程的应用程序，在运行完成后，不会自动释放资源，FreeOnTerminate :=True我也设置了，我每运行一次，内存消耗就多8-10K,应该是会自动释放的啊，哪位大侠帮帮忙！我就2０分了。
unit testthread;

interface

uses
Classes,adodb,db,SysUtils, IdGlobal;

type
SendSalesActionMsg = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
Public
constructor Create();
destructor Destroy; override;
end;

implementation

uses Unit1;
constructor SendSalesActionMsg.Create ;
Begin
self.FreeOnTerminate :=True;
inherited Create(False);
end;

destructor SendSalesActionMsg.Destroy;
begin
inherited Destroy;
end;

procedure SendSalesActionMsg.Execute ;
var
Begin
.......... process code
ENd;

end.

[解决办法]
就你上面的那些代码看不到有什么问题