Потоки ждут условие

[bulldog5293]

Доброго времини суток, возник вопрос такого плана. Из потоков я посылаю сообщение форме, что бы обратится к к компанентам/процедурам/функциям.Т.к. их должен обрабатывать только один поток я выстовил булену и делаю проверку, но при запуски от 2х потоков будит от этого выгода в производительности программы/системы?И как правельней дождаться условий для продолжений?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
TNewThread = class(TThread)
  private
//
  protected
    procedure Execute; override;
  end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure WndProc(var Msg: TMessage); override;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Thread:array[0..10]of TNewThread;
  bob: Boolean = false;
implementation

{$R *.dfm}


procedure TForm1.WndProc(var Msg: TMessage);
begin
  inherited;
if Msg.Msg=wm_user+20 and bob = false then
begin
//
end
else
begin
//как ожидать?
end;
//
if Msg.Msg=wm_user+30 and bob = false then
begin
//
end
else
begin
//
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  for i:=0 to N do
  begin
    Thread[i] := TNewThread.Create(true);
    Thread[i].Priority := tpidle;
    Thread[i].FreeOnTerminate := true;
    Thread[i].Resume;
  end;


procedure TNewThread.Execute;
begin
//
SendMessage(***,WM_USER+20,0,0);
if ** then
SendMessage(***,WM_USER+30,0,0);
end;

[xoodoo]

SendMessage сама по себе синхронная функия, никакие дополнительные телодвижения для организации"ожидания" при ее использовании не нужны.

[Stilet]

Из потоков я посылаю сообщение форме, что бы обратится к к компанентам/процедурам/функциям.

А, стесняюсь спросить, зачем? какова конечная цель данной стратегии?