VAR
  MyThread    : Array[1..10]  of TMyThread;
  rWait       : Cardinal;

Begin
For i = 1 to 10 do
Begin
      MyThread := TMyThread.Create(....)
      MyThread.FreeOnTerminate := true;
      MyThread.Resume;
End;

  repeat
    rWait:= WaitForMultipleObjects(i, @MyThread, True, 100);
    Application.ProcessMessages;
  until rWait<>WAIT_TIMEOUT;

  ShowMessage('와우~! 쓰레드가 끝났다~");
End;

이렇게 하니까 되네요^^


하두고 님이 쓰신 글 :
: For i = 1 to 10 do
: Begin
:      With TMyThread.Create(....) do
:      Begin
:              .....
:              FreeOnTerminate := true;
:              Resume;
:       End;
: End;
:
: 이렇게 했는데요.
:
: 모든 쓰레드가 종료될때 까지 기다리는 방법이 있는지요?