Тестовая программа Builder C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int NATA=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
class kl1
{
public:
    String FileName;
    String RB1Caption;
    String RB2Caption;  
    String RB3Caption;
    void a(); 
};
 
kl1 K[6];
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    K[NATA].a();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    K[0].FileName="1.jpg";
    K[0].RB1Caption="bla1";
    K[0].RB2Caption="зелений";
    K[0].RB3Caption="bla3";
 
    K[1].FileName="2.jpg";
    K[1].RB1Caption="красный";
    K[1].RB2Caption="bla1";
    K[1].RB3Caption="bla3";
 
    K[2].FileName="3.jpg";
    K[2].RB1Caption="желтый";
    K[2].RB2Caption="bla1";
    K[2].RB3Caption="bla3";
 
    K[3].FileName="4.jpg";
    K[3].RB1Caption="голубой";
    K[3].RB2Caption="bla1";
    K[3].RB3Caption="bla3";
 
    K[4].FileName="5.jpg";
    K[4].RB1Caption="красный";
    K[4].RB2Caption="bla1";
    K[4].RB3Caption="фиолетовый";
 
    K[5].FileName="6.jpg";
    K[5].RB1Caption="черный";
    K[5].RB2Caption="bla1";
    K[5].RB3Caption="bla3";
 
    K[0].a();
}
//---------------------------------------------------------------------------
void kl1::a()
{
    NATA++;
    Form1->Image1->Picture->LoadFromFile(FileName);
    Form1->RadioButton1->Caption=RB1Caption;
    Form1->RadioButton2->Caption=RB2Caption;
    Form1->RadioButton3->Caption=RB3Caption;
}