Передача данных между формами

void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
// здесь сначала проверяешь какой радиобутон был чекнут - правильно.
// но а если не чекнут никакой радиобутон?? 1 ошибка.
 if(RadioButton1->Checked==true)i=1;//перевіряємо, яка була обрана відповідь
 if(RadioButton2->Checked==true)i=2;
 if(RadioButton3->Checked==true)i=3;
 if(RadioButton4->Checked==true)i=4;

 if(i==pravil_otvet)s++;//якщо вибраний і правильний збігаються, то збільшуємо суму на одиничку
 i=0;//обнулення потрібно для коректного підрахунку суми

 RadioButton1->Checked=false;//очищаємо натиснуту кнопку
 RadioButton2->Checked=false;
 RadioButton3->Checked=false;
 RadioButton4->Checked=false;
 nomer++;
 vopros();// здесь идет проверка правильности ответа НО будет проверятся все в пустую! т.е. код никуда!
 Memo1->Lines->Add(variant);// здесь для красоты можно выводить не номер а ответ!

void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
  pravil_otvet = 0;// обнуление
 if(RadioButton1->Checked==true)i=1;//перевіряємо, яка була обрана відповідь
 else
 if(RadioButton2->Checked==true)i=2;
 else
 if(RadioButton3->Checked==true)i=3;
 else
 if(RadioButton4->Checked==true)i=4;
 else {ShowMessage("Не выбран ответ!");return;}// после выдачи сообщения оставатся на вопросе пока не будет выбран ответ.
 // если было чекнут радиобутон то
   vopros();// проверить правильность ответа.
 if(i==pravil_otvet)s++;//якщо вибраний і правильний збігаються, то збільшуємо суму на одиничку
 
 i=0;//обнулення потрібно для коректного підрахунку суми
 RadioButton1->Checked=false;//очищаємо натиснуту кнопку
 RadioButton2->Checked=false;
 RadioButton3->Checked=false;
 RadioButton4->Checked=false;
 nomer++;// переход на следующий вопрос.
 
 Memo1->Lines->Add(variant);
 
}
//---------------------------------------------------------------------------

           Form2->Label5->Caption="Хто виріс в джунглях серед диких звірів?";
           Form2->RadioButton1->Caption="Колобок";
           Form2->RadioButton2->Caption="Мауглі";
           Form2->RadioButton3->Caption="Бетмен";
           Form2->RadioButton4->Caption="Чарльз Дарвін";
           pravil_otvet=2;
                   break;

else {ShowMessage("Не выбран ответ!");return;}// после выдачи сообщения оставатся на вопросе пока не будет выбран ответ.

        case 40:
           Form2->Label5->Caption="";
           Form2->Label1->Caption="";
           Form2->Label2->Caption="";
           Form2->Label3->Caption="";
           Form2->Label4->Caption="";
           BitBtn1->Enabled=false;
           RadioButton1->Enabled=false;//робимо кнопки "не нажимаемыми", щоб користувач натиснув на "завершити тест"
           RadioButton2->Enabled=false;
           RadioButton3->Enabled=false;
           RadioButton4->Enabled=false;

Form2->Label5->Caption="Як називають манекенницю супер-класу?";

 case 0:
           Form2->Label5->Caption="Хто виріс в джунглях серед диких звірів?";

 case 0:
           Form2->Label5->Caption="Хто виріс в джунглях серед диких звірів?";

//extern int pravil_otvet;//змінна, для зберігання правильної відповіді на питання

int s=0, i=0, pravil_otvet, nomer=0;//s-сума правильних відповідей, i-допоміжна змінна, nomer-номер поточного питання

int s=0,//s-сума правильних відповідей
    i=0,//i-допоміжна змінна
 pravil_otvet,//
  nomer=-1;// nomer-номер поточного питання

void __fastcall TForm2::vopros()

switch(nomer)
{
  case -1:
           pravil_otvet=1;//присвоюємо номер правильної відповіді
           break;
 
  case 0:
           Form2->Label5->Caption="Хто виріс в джунглях серед диких звірів?";
           Form2->Label1->Caption="Колобок";

void __fastcall TForm2::BitBtn1Click(TObject *Sender)

void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
  pravil_otvet = 0;// обнуление
  i=0;
 if(RadioButton1->Checked==true)i=1;//перевіряємо, яка була обрана відповідь
 else
 if(RadioButton2->Checked==true)i=2;
 else
 if(RadioButton3->Checked==true)i=3;
 else
 if(RadioButton4->Checked==true)i=4;
 else 
// здесь можно поменять функцию на вопрос типа " игнорировать вопрос?" или "попытаться ответить на вопрос?"
{ShowMessage("Не выбран ответ!");return;}// после выдачи сообщения оставатся на вопросе пока не будет выбран ответ.
 // если было чекнут радиобутон то
 vopros();// проверить правильность ответа.
 if(i==pravil_otvet){s++;//якщо вибраний і правильний збігаються, то збільшуємо суму на одиничку
   Memo1->Lines->Add("OK!");
 }
 
 i=0;//обнулення потрібно для коректного підрахунку суми
 RadioButton1->Checked=false;//очищаємо натиснуту кнопку
 RadioButton2->Checked=false;
 RadioButton3->Checked=false;
 RadioButton4->Checked=false;
 nomer++;// переход на следующий вопрос.
 vopros();// установить новый вопрос.
 Memo1->Lines->Add(variant);
 
}
//-

string->Text = StringReplace(string->Text, "  ", " ", TReplaceFlags() << rfReplaceAll);// здесь два пробела заменяться на один. эта операция будет продолжена пока в тексте будет больше или равно двум пробелам (результат будет только один пробел)