[ProDaNTe]

Создаю поток в другом потоке приложение работает правильно, но при закрытии выдаёт неверный дескриптор окна!
Что делать?

Код:

type
   TFireThread = class(TThread)
  private
  adlink:Boolean;
  nm:String;
  service:integer;
  procedure Get(Dname:String;adlink:Boolean;ser:integer);
  protected
  procedure Execute; override;
  public
  end;

type
   TLoadThread = class(TThread)
  private
    hfil:HFILE;
  size,ty,ok,isize:int64;
  late:int64;
  DownName:String;
  DownNumber:integer;
  hIneta,hURLa,hURLb: HINTERNET;
  nseg,allseg,ns:integer;
  zerkala:TStringList;
  stok:Boolean;
    procedure DownLoadSeg(beg,the:String);
  protected
  procedure Execute; override;
  procedure Terminate;
  public
  end;

var
LinkThried: array [0..9999] of TFireThread;

procedure TLoadThread.DownLoadSeg(beg,the:String);
begin
 LinkThried[DownNumber]:=TFireThread.Create(false);
end;