Потоки, Критическая секция, виснет форма.

[Sonny01]

Всем привет. Помогите разобраться с ситуацией. Для примера сделал программу в Билдере, создав 1 объект потока и в нём написал:

void __fastcall Thread1::Execute()
{
        Synchronize(Do);
}

void __fastcall Thread1::Do()
{
        int num = 0;

        //for(;;)
       // {
                EnterCriticalSection(&Form1->css);

                Sleep(3000);

                Form1->Memo1->Lines->Add(num);

                num++;

                LeaveCriticalSection(&Form1->css);
       // }
}

Критическая секция задана в классе формы в паблике и инициирована в конструкторе той же формы:

public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
        CRITICAL_SECTION css;
};

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        InitializeCriticalSection(&css);
}

По кнопке запускаю поток и как только программа доходит до входа в крит. секцию, форма виснет и не отвисает до выхода из неё. Помогите разобраться, в чем проблема?

[Sonny01]

Всему виной таймер))) А если я хочу генерировать к примеру числа в этом потоке к примеру с задержкой в секунду, то как избежать этих подвисов? да и даже если включить бесконечный цикл.

[Stilet]

А что в Билдере Synchronize() отменили?

[Sonny01]

Спасибо. всё решено.