Посчитать НОД чисел, записанных в текстовом файле

//---------------------------------------------------------------------------
     int NOD, count10, numbers[10] ;    //  общие переменные
 
//---------------------------------------------------------------------------
int __fastcall TForm1::nod(int a, int b)         //  функция расчета НОД
{                                                // (header добавлен в Unit1.h)
    while(a && b) a > b ? a %= b : b %= a;
    return a | b;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
     Memo1->Lines->LoadFromFile(".\\file.txt");     // чтение из файла
     count10 = Memo1->Lines->Count;                     // запись количества строк
     for(int i=0;i<count10 && i<10;i++)              // цикл перевода строк
       numbers[i] = Memo1->Lines->Strings[i].ToIntDef(0);       // в числа
     Label1->Caption = "Считано "+IntToStr(count10)+ " чисел";
     Label1->Visible = true;                         //  вывод информации в метку
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
     int cnod = numbers[0];                          // инициализация нод
     for(int i=1;i<count10;i++) cnod = nod(cnod,numbers[i]); // цикл посчета нод
     NOD = cnod;
     Label2->Caption = IntToStr(NOD);
     Label2->Visible = true;                        //  вывод информации в метку
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
     TStringList *SL = new TStringList;            //  создание пустого списка
     SL->Add(IntToStr(NOD));                       //  перевод числа нод в строку
     SL->SaveToFile(".\\otvet.txt");               //  запись в файл
     delete SL;                                    //  освобождение памяти
}
//---------------------------------------------------------------------------