Application->ProcessMessages();

는 가급적 사용하지 않는게 좋습니다.
(급하면 어쩔 수 없지만요.)

aaa 님이 쓰신 글 :
: 쿼드콥터헬기 님이 쓰신 글 :
: : delay함수에 timer를 써서 led 조명을 깜박거리게 해놨습니다.
: : 다만 실행 도중 win창을 이동을 시키면 매우 매끄럽지가 않던데 혹시 다른 방법이 없나요?
: : void __fastcall TForm1::delay(int n)
: : {
: :       DWORD nStartTM;
: :       nStartTM = GetTickCount();
: :       while(true)
: :       {
: :         if(nStartTM + n < GetTickCount())
: :                 return;
: :       }
: :
: : }
: : void __fastcall TForm1::Timer1Timer(TObject *Sender)
: : {
: :         int i;
: :
: :         for(i=0; i<GetTickCount(); i++)
: :         {
: :                 VrUserLed1->PaletteEx->Low2 = clRed;
: :                 delay(1000);
: :                 VrUserLed1->PaletteEx->Low2 = clLime;
: :                 delay(1000);
: :                 return;
: :         }
: :
: : }
: : //---------------------------------------------------------------------------
: :
: : void __fastcall TForm1::RadioButton1Click(TObject *Sender)
: : {
: :         if(RadioButton1->Checked == true)
: :                 Timer1->Enabled = true;
: : }
: : //---------------------------------------------------------------------------
: : void __fastcall TForm1::RadioButton2Click(TObject *Sender)
: : {
: :         if(RadioButton2->Checked == true)
: :                 Timer1->Enabled = false;
: : }
: : //---------------------------------------------------------------------------
:
:
: Application->ProcessMessage();
: 이거 쓰셧나요 ? 이것도 한번써보셈