Должно быть 3 потока. А диспетчер задач показывает, что потока создано 2

[BEL9ILLI]

Есть код, он полностью рабочий, но вот когда создаются потоки, то по моему разумению должен создаваться один поток на работу формы, и ещё 2 потока созданные мной, то есть всего 3. А диспетчер задач показывает, что потока создано 2.
Что я сделал не так?

Собственно вызов доп. потоков.

Procedure TForm1.Timer1Timer(Sender: TObject);
begin
  HThread[0] := CreateThread(nil, 0, @FirstStr, nil,
                             CREATE_SUSPENDED, first_id);
  HThread[1] := CreateThread(nil, 0, @SecondStr, nil,
                             CREATE_SUSPENDED, second_id);
  SetThreadPriority(HThread[0],Thread_Priority_Normal);
  SetThreadPriority(HThread[1],Thread_Priority_Normal);
  ResumeThread(HThread[0]);
  ResumeThread(HThread[1]);
  WaitForMultipleObjects(2, @HThread, True, 500);
  CloseHandle(HThread[0]);
  CloseHandle(HThread[1]);
end;

Исходник в аттаче.

[veniside]

во-первых, к VCL нельзя обращаться не из основного потока
во-вторых, вот этот код отрабатывает достаточно быстро:

procedure FirstStr;
Var
  MemoryStatus: MEMORYSTATUSEX;
begin
  Form1.Memo1.Lines.Clear;
  MemoryStatus.dwLength := SizeOf(MEMORYSTATUSEX) ;
  GlobalMemoryStatusEx(@MemoryStatus) ;
  with MemoryStatus do begin
    Form1.Memo1.Lines.Add(IntToStr(dwLength) +
      ' Size of ''MemoryStatus'' record') ;
    Form1.Memo1.Lines.Add(IntToStr(dwMemoryLoad) +
      '% memory in use') ;
    Form1.Memo1.Lines.Add(FloatToStr(ullTotalPhys) +
      ' Total Physical Memory in bytes') ;
    Form1.Memo1.Lines.Add(IntToStr(ullAvailPhys) +
      ' Available Physical Memory in bytes') ;
    Form1.Memo1.Lines.Add(IntToStr(ullTotalPageFile) +
      ' Total Bytes of Paging File') ;
    Form1.Memo1.Lines.Add(IntToStr(ullAvailPageFile) +
      ' Available bytes in paging file') ;
    Form1.Memo1.Lines.Add(IntToStr(ullTotalVirtual) +
      ' User Bytes of Address space') ;
    Form1.Memo1.Lines.Add(IntToStr(ullAvailVirtual) +
      ' Available User bytes of address space') ;
   end;
end;

ну а второй поток, наверно, висит. Так что всё верно.

[BEL9ILLI]

Сообщение от veniside

во-первых, к VCL нельзя обращаться не из основного потока

Надо ли что-нибудь исправить?

ну а второй поток, наверно, висит. Так что всё верно.

Поясните пожалуйста.

[veniside]

сначала поясните, какой интервал у таймера?
просто второй поток тоже долен быстро отработать, так что у вас должен быть 1 поток
но если у таймера интервал около 1 сек, то у вас постоянно потоки создаются/прибиваются, так что их может быть от 1 до 3 в любое время

> Надо ли что-нибудь исправить?

зависит от того, надо ли вам, чтобы программа работала )
можно поместить работу с VCL в Synchronize(), тогда смысл потоков пропадёт, хотя, если честно, я и сейчас его не вижу ровно никакого )