Sveiki,

programoje galima pasirinkti is keliu variantu (RadioGroups'as). Pasirinkus 
viena varianta isaugomas jo pavadinimas, o veliau paspaudus mygtuka tas 
pavadinimas perkeliamas i Memo langeli. Kintamasis aprasytas public 
programos aprase.
Kakodel sis kintamasis "neislipa" is RadioGroups'o objekto. Jei pasirinkt, 
kad ji is karto, tik pasirinkus, perkeltu i Memo - viskas gerai, bet jei 
psirinkus keleta kitu parametru viskas - vietoj sito pasirinkimo isveda 
vertikalu bruksniuka ir psio. Likusi pasirinkima, kuris yra kitame objekte, 
isveda gerai, tik viena sita. Arba isveda jei pasirinki tik ji viena, be 
kito kintamujo.
Kodas:
Void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
        switch(RadioGroup1->ItemIndex)
    {
    case 0:
        strcpy(kintamasis,"Neislipa");
        break;
    case 1:...............
...............
__fastcall TForm1::Button1Click(TObject *Sender)
{
        Edit1->Clear();
        Memo1->Lines->Add(kintamasis + " " + kitas_kintamasis);