// Загрузка начисление в БД

PhoneList->Clear(); // очистим лист
//загрузка в память для обработки
PhoneList->LoadFromFile(strFN+"."+RegCodeList->Strings[j]);

ProgressBar->Max = PhoneList->Count;
ProgressBar->Position =  0 ;

for (int i =  0 ,counter =  1000 ;i < PhoneList->Count;i++)
{
 // разбиение строки - НАЧИСЛЕНИЯ
 strTemp = PhoneList->Strings;
 AnsiString s_phone,s_date,s_debt,s_curr,s_last;
 // Поле Phone
 s_phone = strTemp.SubString( 0 ,strTemp.Pos(";")- 1 );
 strTemp.Delete( 1 ,strTemp.Pos(";")); 
 // Поле debt
 s_date = strTemp.SubString( 0 ,strTemp.Pos(";")- 1 );
 strTemp.Delete( 1 ,strTemp.Pos(";"));
 // Поле debt
 s_debt = strTemp.SubString( 0 ,strTemp.Pos(";")- 1 );
 strTemp.Delete( 1 ,strTemp.Pos(";"));
 // Поле current_debt
 s_curr = strTemp.SubString( 0 ,strTemp.Pos(";")- 1 );
 strTemp.Delete( 1 ,strTemp.Pos(";"));
 // Поле lastname
 s_last = strTemp.SubString( 0 ,strTemp.Pos(";")- 1 );
 strTemp.Delete( 1 ,strTemp.Pos(";")); 
 // чтобы приложение не казалось повисшим
 if(  [i]--counter <= 0 )
 
 {
  counter =  1000 ;
  Application->ProcessMessages();
  ProgressBar->Position +=  1000 ;
 }
 // заливка данных
 Q->SQL->Clear();
 Q->SQL->Add("insert into tbl_tmp_debts (phone,debt_date,debt,current_debt,lastname)");
 Q->SQL->Add("values ("+s_phone+",'"+s_date+"',"+s_debt+","+s_curr+",'"+s_last+"')");
 Q->ExecSQL();
// закрывается главный FOR
}