Popup окно

if (mrYes==MessageDlg("Удалить?", mtInformation, TMsgDlgButtons()<<mbYes<<mbNo,0))
{
//если нажали на Yes
}
else
{
//если нажали на No
}

TForm *formM = CreateMessageDialog("Използвай създадена база Дружба или създай нова база!", mtInformation, TMsgDlgButtons()  << mbOK << mbCancel);
for (int i = 0; i < formM->ComponentCount; ++i)
{
  TButton *button = dynamic_cast<TButton *>(formM->Components[i]);
  if (button)
  {
    if (button->Caption == "OK")
    {
      button->Width = 150;
      button->Left = 10;
      button->Caption = "Стартирай - Дружба";
    }
    else
    if (button->Caption == "Cancel")
    {
      button->Width = 150;
      button->Left = 170;
      button->Caption = "Създай Нова база!";
    }
  }
}
formM->ShowModal();
 if (formM->ModalResult  == mrCancel) // Създаване на нова база
 {       //ShowMessage ("cancel");
  AnsiString newbasaset = (InputBox("Създаване на нова база","Напиши свое име на база!",""));
    if (newbasaset!="")
    {
    // Edit_new_basa->Text = newbasaset;
    // namebasa = newbasaset;
    // Button_new_basa->Caption = "Готово";
    // SetB->WriteString("Base Name",netname,namebasa);
    // Button_new_basaClick(0);
    }//else {   Application->Terminate();  }
  formM=NULL;
  delete formM;
 }