Как притормозить основной поток пока не выполнятся все дополнительные?

[Crystallon]

У моей программы фон это картинка у которой есть прозрачные места, и для того чтобы эти прозрачные места в программе реально были прозрачными я использую такой код:

  FMain.brush.bitmap:=bg.picture.bitmap;
  nullClr := bg.picture.Bitmap.Canvas.Pixels[0, 0];
  regn := CreateRectRgn(0, 0, bg.picture.Graphic.Width,
  bg.picture.Graphic.Height);
  for x := 1 to bg.picture.Graphic.Width do
    for y := 1 to bg.picture.Graphic.Height do
      if bg.picture.Bitmap.Canvas.Pixels[x - 1, y - 1] = nullClr then
      begin
        tmpRegn := CreateRectRgn(x - 1, y - 1, x, y);
        CombineRgn(regn, regn, tmpRegn, RGN_DIFF);
        DeleteObject(tmpRegn);
      end;
  SetWindowRgn(FMain.handle, regn, true);

Когда изображение очень большое и на нем очень много прозрачных точек вышеуказанная процедура выполняется слишком долго, чего допускать в моем случае никак нельзя, по этому я хочу как-то разделить этот процесс на несколько потоков, происходить это будет примерно так:
например 1 поток будет выполнять эту процедуру для x := 1 to bg.picture.Graphic.Width и y := 1 to bg.picture.Graphic.Height/4, т.е. для верхнего участка изображение если изображение поделить на 4 куска по горизонтали, поток 2 будет выполнять эту процедуру для x := 1 to bg.picture.Graphic.Width и y := bg.picture.Graphic.Height/4 to bg.picture.Graphic.Height/2 т.е. для второго куска сверху итд

Для того чтобы все это сработало как я понимаю необходимо запустить все 4 потока в oncreate и как-то заморозить выполнение oncreate до того как все потоки закончат свою работу, после чего выполнить SetWindowRgn(FMain.handle, regn, true);
Если я в своей "теории" не ошибаюсь подскажите можно ли как-то заморозить поток и как правильней это сделать.
Заранее спасибо

P.S. Если тема обсуждалась ранее прошу прощения, но ни поиск по форуму ни яндекс подходящей информации мне не дали.

[BOBAH13]

Я немного в недоумении, что касается вопроса в теме, используйте WaitForSingleObject, или Multiple.

[Crystallon]

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

Я немного в недоумении, что касается вопроса в теме, используйте WaitForSingleObject, или Multiple.

Спасибо, вроде разобрался