void __fastcall TForm1::Button4Click(TObject *Sender)
{
AnsiString nazwy[466];
AnsiString imiona[626];
AnsiString nazwiska[1026];
int liczba;
string tmp;
fstream stacje;
fstream imie;
fstream nazwisko;

stacje.open("nazwystacji.txt", ios::out | ios::in );

if (!stacje.good()) ShowMessage("Blad przy odczycie nazw stacji!");

int i;
for ( i = 0; i<466;i++){
getline(stacje, tmp);
nazwy[i].cat_sprintf(tmp.c_str());
}
stacje.close();

imie.open("imiona.txt", ios::out | ios::in );

if (!imie.good()) ShowMessage("Blad przy odczycie imion!");

for (i = 0; i<626;i++){
getline(imie, tmp);
imiona[i].cat_sprintf(tmp.c_str());

}
imie.close();

nazwisko.open("nazwiska.txt", ios::out | ios::in );

if (!nazwisko.good()) ShowMessage("Blad przy odczycie nazwisk!");

for ( i = 0; i<1026;i++){
getline(nazwisko, tmp);
nazwiska[i].cat_sprintf(tmp.c_str());
}
nazwisko.close();


if (Edit4->Text.IsEmpty()) {ShowMessage("Wpisz liczbe rekordów do wylosowania!"); exit;}

try
{ liczba = Edit4->Text.ToInt();  }
catch(...)
{ShowMessage("Wpisz liczbe całkowita!"); Edit4->Clear(); exit;}

AnsiString imnaz;

for (i = 0; i < liczba ;i++)  {
if (!tabelka->Cells[0][1].IsEmpty()) tabelka->RowCount++;
tabelka->Cells[0][tabelka->RowCount-1] = IntToStr(++id);
tabelka->Cells[1][tabelka->RowCount-1] = nazwy[rand()%466];

if (rand()%2 == 0) tabelka->Cells[3][tabelka->RowCount-1] = "I rzad"; else tabelka->Cells[3][tabelka->RowCount-1] = "II rzad";
if (rand()%2 == 0) {tabelka->Cells[4][tabelka->RowCount-1] = "NIE"; tabelka->Cells[5][tabelka->RowCount-1] = "TAK"; } else {tabelka->Cells[4][tabelka->RowCount-1] = "TAK";
if (rand()%2 == 0) tabelka->Cells[5][tabelka->RowCount-1] = "TAK"; else tabelka->Cells[5][tabelka->RowCount-1] = "NIE"; }

if (rand()%4 == 0) {tabelka->Cells[6][tabelka->RowCount-1] = "TAK"; tabelka->Cells[2][tabelka->RowCount-1] = "BRAK";} else{ tabelka->Cells[6][tabelka->RowCount-1] = "NIE";
imnaz = imiona[rand()%626] + " " + nazwiska[rand()%1026];
tabelka->Cells[2][tabelka->RowCount-1] = imnaz;}

}