Остановка выполнения кода и ожидание реакции пользователя

//---------------------------------------------------------------------------
void Foo1()
{
    for(int i = 0; i < 1000; i++)
    {
        Sleep(1);
        Application->ProcessMessages();
        if(i == 555)
        {
            int msg = MessageBoxA(Application->Handle, "Stop function?", "Caption", MB_YESNO);
            if(msg == ID_YES)
            {
                // YES
                return;
            }
            else if(msg == ID_NO)
            {
                // NO
            }
            else
            {
                // [X]
            }
        }
        Form1->Caption = i;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Foo1();
}
//---------------------------------------------------------------------------

if(Form->ShowModal()==mrOk)
{
//...
}

    String value = "Default";
    if(InputQuery("Caption", "Prompt", value))
    {
        // Нажали Ok, value содержит ввод пользователя
    }
    else
    {
        // Нажали Cancel
    }