Проверка существования потока

for i := 0 to 10 do
    if (поток не существует) then
       begin
          ReadData[i] := ReadDataF.Create(True);
          ReadData[i].FreeOnTerminate := True;
          try
            ReadData[i].InFileName := pchar('data.f');
            ReadData[i].OutFileName := pchar('jpg.jpg');
            ReadData[i].position := num;
            ReadData[i].Flen := 100;
            ReadData[i].Resume;
         finally
         end;
       end;

const
   THREAD_COUNT = 11;
...
   FCountTh: byte;
...
procedure TSomeClass.Go()
begin
   FCountTh := 0;
 
   while FCountTh <= THREAD_COUNT do
   begin
      RunThread ();
      inc(FCountTh);
   end;
end;
 
procedure TSomeClass.RunThread ()
begin
  with TMyThreadClass.Create(true) do
  begin
   {передаем данные для работы потока}
   FreeOnTerminate := true;
   OnTerminate := TerminateThread;
   Resume;
  end;
end;
 
procedure TSomeClass.TerminateThread(Sender: TObject)
begin
   dec(FCountTh); 
 
   if {данные для работы потоков еще имеются} then
   begin
      RunThread ();
      inc(FCountTh);
   end;
end;