Народ помогите с программой плиз с++

Вот часть кода программы, помогите сделать так чтобы программа не могла считать хоть с одним пустым блоком и количество точек в них должно быть одинаковое.

void __fastcall TForm8::Button1Click(TObject *Sender)
{
int Block;
int i;
int j;
int k;
ListBox1->Items->Clear();
ComboBox1->Items->Clear();

int B[100];
if (Edit1->Text=="")
{
ShowMessage("Введите количество блоков");
return;
}
Block=Edit1->Text.ToInt();
for(i=0;i<=Block-1;i++)
{
ComboBox1->Items->Append("Блок "+IntToStr(i+1));
}

f=Form1->ADOTable1->FieldCount;
for (i=0;i<f-1;i++)
{
B[i]=i+1;
}

for (int i=0;i<f-2;i++)
{
k=B[i];
//ListBox1->Items->Append(FloatToStr(k));
}
tochki = k/Block;
int kolichestvo_tochek = tochki*Block;
for (int i=0;i<kolichestvo_tochek;i++)
{
k=B[i];
ListBox1->Items->Append(FloatToStr(k));
}
ListBox2->Items->Clear();
}
//---------------------------------------------------------------------------
double M2[100][100];
int t;
void __fastcall TForm8::Button2Click(TObject *Sender)
{
int j;
t=ListBox2->Items->Count;
AnsiString s;
s=FloatToStr(tochki);
if (t<2)
{
MessageDlg("В блоке должно быть не менее 2 точек",mtInformation,TMsgDlgButtons()<< mbOK,0);
return;
}
if (t>tochki)
{
MessageDlg("В блоке должно быть не более "+s+" точек",mtInformation,TMsgDlgButtons()<< mbOK,0);
return;
}

for (int j=0;j<ListBox2->Count;j++)
{
Form1->ADOTable1->First();

for (int i=0;i<Form1->ADOTable1->RecordCount;i++)
{
M2[i][j]=Form1->ADOTable1->Fields->FieldByName(ListBox2->Items->Strings[j])->AsFloat;
Form1->ADOTable1->Next();
}
}
}