为什么执行thread.free时报错？是不是跟thread的结构有关？

在执行完thread.terminate之后再执行.free就发生错误。
selthread = class(TThread)
  private
    { Private declarations }
    proci:integer;      // 
    procedure Setproc;  //设置滚动条
  protected
    procedure Execute; override;
  public
    mislsxg,misNdCQ:boolean;
    mFromDate:word;
    mToDate:word;
    mlLabel:TLabel;
    mProgress1:TProgressbar;
    mSComb:TACombCon;    mPSkIDCs:PTARStockId;
end;