[nixon232]

Странно, но если в главном потоке послать такое, то ошибок нет и он оба раза шлет сигнал на поток

Код:

begin

  FreeAndNil(FLock);
  FBan.Free;
  for i := 1 to 12 do
  begin
  tmp:=   fNewTh[i];
    if tmp<>nil  then
         tmp.Terminate;
  end;

  for i := 1 to 12 do
  begin
  tmp:=   fNewTh[i];
    if tmp<>nil  then
         fNewTh[i].Terminate;
  end;
  inherited Destroy;

end;

в самом потоке уже осталось Sleep(1000); и все. получается он не завершается? но ведь доходит до Destroy.